This commit is contained in:
nek0 2015-09-25 23:31:37 +02:00
parent 68f39fbeb4
commit 6a1c625940
3 changed files with 4 additions and 4 deletions

View file

@ -20,7 +20,7 @@ import Import
import Handler.Commons
import Data.Maybe
import Data.Time
import System.Locale
-- import System.Locale
getAdminCommentR :: Handler Html
getAdminCommentR = do

View file

@ -20,7 +20,7 @@ import Import
import Data.Time
import Data.Maybe
import qualified Data.Text as T
import System.Locale
-- import System.Locale
import System.FilePath
import Yesod.Markdown

View file

@ -29,7 +29,7 @@ import Data.Time
import Data.Char
import Database.Persist
import System.Random
import System.Locale
-- import System.Locale
import Yesod
import Numeric (readHex, showHex)
import Network.Mail.Mime
@ -156,7 +156,7 @@ iso8601 time =
zone
where zone = case formatTime defaultTimeLocale "%z" time of
(sig:digits@(h1:h2:m1:m2))
| sig `elem` "+-" &&
| sig `elem` ("+-" :: String) &&
all isDigit digits ->
sig:h1:h2:':':m1:m2
_ ->