about summary refs log tree commit diff
path: root/src/Blog.hs
diff options
context:
space:
mode:
authorVincent Ambo <v.ambo@me.com>2012-03-18T22·49+0100
committerVincent Ambo <v.ambo@me.com>2012-03-18T22·49+0100
commitda388782122779e865fc5454e5182d95c7f8fa26 (patch)
tree15d02dbbdba7bda258fa2f9a690ec049803ceff1 /src/Blog.hs
parent515660fa7deeeb6753768378e0cfa38a4616e03a (diff)
* correctly serving 404s with status code 404 :|
Diffstat (limited to 'src/Blog.hs')
-rw-r--r--src/Blog.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Blog.hs b/src/Blog.hs
index d6b806985ed6..f481e578fd68 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -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