From 6a1c6259403a8c30d1772929abf2bee8dd30089e Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 25 Sep 2015 23:31:37 +0200 Subject: [PATCH] update --- Handler/AdminComments.hs | 2 +- Handler/Medium.hs | 2 +- Helper.hs | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Handler/AdminComments.hs b/Handler/AdminComments.hs index 49a0351..69a0b38 100644 --- a/Handler/AdminComments.hs +++ b/Handler/AdminComments.hs @@ -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 diff --git a/Handler/Medium.hs b/Handler/Medium.hs index e283a84..6ead745 100644 --- a/Handler/Medium.hs +++ b/Handler/Medium.hs @@ -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 diff --git a/Helper.hs b/Helper.hs index f5ffea6..97d3782 100644 --- a/Helper.hs +++ b/Helper.hs @@ -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 _ ->