Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B
import           Data.Maybe
import           Control.Applicative
import           Snap.Types
import           Snap.Util.FileServe
import           Text.Templating.Heist

import           Server

splices :: [(ByteString, Splice Snap)]
splices = []

main :: IO ()
main = templateServer "templates" splices emptyServerConfig $ \render ->
           ifTop        (render    "index")
       <|> dir "static" (fileServe "static")