rnhmjoj/breve
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Clean the template

Browse Source
This commit is contained in:
rnhmjoj 2015-04-08 13:55:36 +02:00
parent 65c5884c7f
commit 90afb6593b
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shortener/Common.hs
View File

@ -5,12 +5,10 @@ import Control.Applicative
import Web.Simple import Web.Simple
import Web.Simple.Templates import Web.Simple.Templates
data AppSettings = AppSettings { } data AppSettings = AppSettings { }
newAppSettings :: IO AppSettings newAppSettings :: IO AppSettings
newAppSettings = do newAppSettings = return AppSettings
return $ AppSettings
instance HasTemplates IO AppSettings where instance HasTemplates IO AppSettings where
defaultLayout = Just <$> getTemplate "layouts/main.html" defaultLayout = Just <$> getTemplate "layouts/main.html"