diff options
| author | Vincent Ambo <v.ambo@me.com> | 2012-03-18T22·49+0100 |
|---|---|---|
| committer | Vincent Ambo <v.ambo@me.com> | 2012-03-18T22·49+0100 |
| commit | da388782122779e865fc5454e5182d95c7f8fa26 (patch) | |
| tree | 15d02dbbdba7bda258fa2f9a690ec049803ceff1 /src/Blog.hs | |
| parent | 515660fa7deeeb6753768378e0cfa38a4616e03a (diff) | |
* correctly serving 404s with status code 404 :|
Diffstat (limited to 'src/Blog.hs')
| -rw-r--r-- | src/Blog.hs | 4 |
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 |