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

* correctly serving 404s with status code 404 :|

Browse source
This commit is contained in:
Vincent Ambo 2012-03-18 23:49:50 +01:00
parent 515660fa7d
commit da38878212
3 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Blog.hs
View file

@ -237,9 +237,9 @@ editPage (Entry{..}) = adminTemplate "Index" $
-- Error pages
showError :: BlogError -> BlogLang -> Html
showError NotFound l = blogTemplate l (T.append ": " $ notFound l) $
showError NotFound l = blogTemplate l (T.append ": " $ notFoundTitle l) $
H.div ! A.class_ "innerBox" $ do
H.div ! A.class_ "innerBoxTop" $ toHtml $ notFound l
H.div ! A.class_ "innerBoxTop" $ toHtml $ notFoundTitle l
H.div ! A.class_ "innerBoxMiddle" $ do
H.p ! A.class_ "notFoundFace" $ toHtml (":'(" :: Text)
H.p ! A.class_ "notFoundText" $ toHtml $ notFoundText l