mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[blog] Update error page for new design

Browse source
This commit is contained in:
Vincent Ambo 2015-11-21 19:07:30 +01:00
parent d7d428d597
commit 41599161fa
1 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Blog.hs
View file

@ -222,16 +222,12 @@ editPage (Entry{..}) = adminTemplate "Index" $ [shamlet|
showError :: BlogError -> BlogLang -> Html showError :: BlogError -> BlogLang -> Html
showError NotFound l = blogTemplate l (T.append ": " $ notFoundTitle l) $ [shamlet| showError NotFound l = blogTemplate l (T.append ": " $ notFoundTitle l) $ [shamlet|
<div .row .text-center> <p>:(
<div .span12 .notFoundFace>:( <p>#{notFoundText l}
<div .row .text-center> <hr>
<div .span12 .notFoundText>
#{notFoundText l}
|] |]
showError UnknownError l = blogTemplate l "" $ [shamlet| showError UnknownError l = blogTemplate l "" $ [shamlet|
<div .row .text-center> <p>:(
<div .span12 .notFoundFace>:( <p>#{unknownErrorText l}
<div .row .text-center> <hr>
<div .span12 .notFoundText>
#{unknownErrorText l}
|] |]