maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* fixed 404 page

Browse source
This commit is contained in:
Vincent Ambo 2012-03-18 23:47:13 +01:00
parent b7e34eba74
commit 515660fa7d
5 changed files with 27 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -74,6 +74,7 @@ tazBlog acid =
, dir "admin" $ ok $ toResponse $ adminLogin
, dir "dologin" $ processLogin acid
, serveDirectory DisableBrowsing [] "../res"
, ok $ toResponse $ showError NotFound DE
]
blogHandler :: AcidState Blog -> BlogLang -> ServerPart Response
@ -84,6 +85,7 @@ blogHandler acid lang =
\(eId :: Integer) -> addComment acid lang $ EntryId eId
, do nullDir
showIndex acid lang
, ok $ toResponse $ showError NotFound lang
]
formatOldLink :: Int -> Int -> String -> ServerPart Response