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 _ ->