nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

update

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/AdminComments.hs
View file

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

2
Handler/Medium.hs
View file

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

4
Helper.hs
View file

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