{-# LANGUAGE OverloadedStrings #-} module Archive where import System.Directory import qualified Data.Text as T import qualified Data.Text.IO as T import Site import Text.StringTemplate import Post import Constant archiveTemplate = do templates <- directoryGroup "templates" :: IO (STGroup T.Text) return $ maybe (newSTMP "generic.st not found") id (getStringTemplate "generic" templates) makeTableRow :: Post -> T.Text makeTableRow p = let a = T.append in "
Title | Date | Comment |