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, mtl >= 2 && < 3,
snap-core >= 1.0 && < 1.1, snap-core >= 1.0 && < 1.1,
snap-server >= 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) if impl(ghc >= 6.12.0)
ghc-options: -threaded -Wall -fwarn-tabs -funbox-strict-fields -O2 ghc-options: -threaded -Wall -fwarn-tabs -funbox-strict-fields -O2

12
src/Main.hs

@ -1,10 +1,14 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Main where module Main where
import Control.Applicative import Control.Applicative
import Snap.Core import Snap.Core
import Snap.Util.FileServe import Snap.Util.FileServe
import Snap.Http.Server 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 :: IO ()
main = quickHttpServe site main = quickHttpServe site

Loading…
Cancel
Save