Browse Source

update to use hamlet templating

pull/1/head
wes 8 years ago
parent
commit
1991dc5896
  1. 5
      riotblog.cabal
  2. 12
      src/Main.hs

5
riotblog.cabal

@ -21,7 +21,10 @@ Executable riotblog
mtl >= 2 && < 3,
snap-core >= 1.0 && < 1.1,
snap-server >= 1.0 && < 1.1,
ginger
text -any,
unordered-containers -any,
data-default -any,
shakespeare >=2.0.11.2
if impl(ghc >= 6.12.0)
ghc-options: -threaded -Wall -fwarn-tabs -funbox-strict-fields -O2

12
src/Main.hs

@ -1,10 +1,14 @@
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Control.Applicative
import Snap.Core
import Snap.Util.FileServe
import Snap.Http.Server
import Control.Applicative
import Snap.Core
import Snap.Util.FileServe
import Snap.Http.Server
import qualified Data.Text.IO as TIO (readFile)
import Data.Text
import qualified Data.HashMap.Strict as HM
import Text.Hamlet
main :: IO ()
main = quickHttpServe site

Loading…
Cancel
Save