From 853be2a99c4f4cd8a75f807d37fb97ec1497215d Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Thu, 19 Nov 2015 16:21:15 +0100 Subject: [build] Use Stack for building --- src/Blog.hs | 3 +-- src/Server.hs | 1 - 2 files changed, 1 insertion(+), 3 deletions(-) (limited to 'src') diff --git a/src/Blog.hs b/src/Blog.hs index 60d87f2907c1..5659ad5955cd 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -10,7 +10,6 @@ import Data.Text (Text, append, empty, pack) import Data.Text.Lazy (fromStrict) import Data.Time import Locales -import System.Locale (defaultTimeLocale) import Text.Blaze.Html (preEscapedToHtml) import Text.Hamlet import Text.Lucius @@ -30,7 +29,7 @@ show' = pack . show -- |After this time all entries are Markdown markdownCutoff :: UTCTime -markdownCutoff = fromJust $ parseTime defaultTimeLocale "%s" "1367149834" +markdownCutoff = fromJust $ parseTimeM False defaultTimeLocale "%s" "1367149834" -- blog CSS (admin is still static) diff --git a/src/Server.hs b/src/Server.hs index 5921aead1afe..85dc06e53690 100644 --- a/src/Server.hs +++ b/src/Server.hs @@ -16,7 +16,6 @@ import qualified Data.Text as T import Data.Time import Happstack.Server hiding (Session) import Happstack.Server.Compression -import System.Locale (defaultTimeLocale) import Blog import BlogDB hiding (updateEntry) -- cgit 1.4.1