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

4
Shortener/Common.hs
View File

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