diff options
| author | Vincent Ambo <v.ambo@me.com> | 2012-03-18T22·47+0100 |
|---|---|---|
| committer | Vincent Ambo <v.ambo@me.com> | 2012-03-18T22·47+0100 |
| commit | 515660fa7deeeb6753768378e0cfa38a4616e03a (patch) | |
| tree | bea09c2dbbb4611f53803e33bbc13aad9f6dce22 /src/Main.hs | |
| parent | b7e34eba74918c04ab247ba7d761ddc3e6c46321 (diff) | |
* fixed 404 page
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 84fa0d9dd326..f12c74349414 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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 |