diff options
| author | Vincent Ambo <vincent@kivra.com> | 2015-11-21T02·18+0100 |
|---|---|---|
| committer | Vincent Ambo <vincent@kivra.com> | 2015-11-21T02·18+0100 |
| commit | 77c376e283e5dd2bde32ab1f20555c28c4adad89 (patch) | |
| tree | e58288525e64ff4d76e373b288d9c05a73d59aea /src/Blog.hs | |
| parent | c2fe73b02715f05cae8721d0e8474e6baa683adf (diff) | |
[all] Fix all warnings
Diffstat (limited to 'src/Blog.hs')
| -rw-r--r-- | src/Blog.hs | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/Blog.hs b/src/Blog.hs index 70adcc1ac7..602fe59894 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -1,11 +1,8 @@ module Blog where import BlogDB -import Control.Monad (unless, when) -import Data.Data (Data, Typeable) import Data.List (intersperse) import Data.Maybe (fromJust) -import Data.Monoid (mempty) import Data.Text (Text, append, empty, pack) import Data.Text.Lazy (fromStrict) import Data.Time @@ -60,7 +57,7 @@ $doctype 5 <div .container> ^{body} <footer .footer> - ^{showFooter lang $ pack version} + ^{showFooter $ pack version} |] where rssUrl = T.concat ["/", show' lang, "/rss.xml"] @@ -71,8 +68,8 @@ $doctype 5 <a class="link" href=#{twitter} target="_blank">Twitter |] -showFooter :: BlogLang -> Text -> Html -showFooter l v = [shamlet| +showFooter :: Text -> Html +showFooter v = [shamlet| <div .container> <div .row> <div .span12 .righttext style="text-align: right;margin-right:-200px"> @@ -271,4 +268,10 @@ showError NotFound l = blogTemplate l (T.append ": " $ notFoundTitle l) $ [shaml <div .span12 .notFoundText> #{notFoundText l} |] - +showError UnknownError l = blogTemplate l "" $ [shamlet| +<div .row .text-center> + <div .span12 .notFoundFace>:( +<div .row .text-center> + <div .span12 .notFoundText> + #{unknownErrorText l} +|] |