about summary refs log tree commit diff
path: root/services/tazblog/src/Blog.hs
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@google.com>2019-07-04T15·05+0100
committerVincent Ambo <tazjin@google.com>2019-07-04T15·05+0100
commit407a65b9ba7e0ffb89fc1a5322366906efec721c (patch)
treeb11c9c6373e86b78714410700c134508b37f11b5 /services/tazblog/src/Blog.hs
parentd26cf3d806e33ed678878733e2c40bb09e9b15c9 (diff)
refactor(tazblog): Move required GHC extensions into source r/25
Necessary because Cabal is going away.
Diffstat (limited to 'services/tazblog/src/Blog.hs')
-rw-r--r--services/tazblog/src/Blog.hs33
1 files changed, 22 insertions, 11 deletions
diff --git a/services/tazblog/src/Blog.hs b/services/tazblog/src/Blog.hs
index f35e3d90801f..7e0f428899ac 100644
--- a/services/tazblog/src/Blog.hs
+++ b/services/tazblog/src/Blog.hs
@@ -1,16 +1,27 @@
+{-# LANGUAGE DeriveDataTypeable         #-}
+{-# LANGUAGE FlexibleContexts           #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE MultiParamTypeClasses      #-}
+{-# LANGUAGE OverloadedStrings          #-}
+{-# LANGUAGE QuasiQuotes                #-}
+{-# LANGUAGE RecordWildCards            #-}
+{-# LANGUAGE ScopedTypeVariables        #-}
+{-# LANGUAGE TemplateHaskell            #-}
+{-# LANGUAGE TypeFamilies               #-}
+
 module Blog where
 
-import BlogDB
-import Data.Maybe      (fromJust)
-import Data.Text       (Text, append, empty, pack)
-import Data.Text.Lazy  (fromStrict)
-import Data.Time
-import Locales
-import Text.Blaze.Html (preEscapedToHtml)
-import Text.Hamlet
-import Text.Markdown
-
-import qualified Data.Text as T
+import           BlogDB
+import           Data.Maybe      (fromJust)
+import           Data.Text       (Text, append, empty, pack)
+import           Data.Text.Lazy  (fromStrict)
+import           Data.Time
+import           Locales
+import           Text.Blaze.Html (preEscapedToHtml)
+import           Text.Hamlet
+import           Text.Markdown
+
+import qualified Data.Text       as T
 
 replace :: Eq a => a -> a -> [a] -> [a]
 replace x y = map (\z -> if z == x then y else z)