aboutsummaryrefslogtreecommitdiff
path: root/src/View/NotFound.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/View/NotFound.hs')
-rw-r--r--src/View/NotFound.hs26
1 files changed, 0 insertions, 26 deletions
diff --git a/src/View/NotFound.hs b/src/View/NotFound.hs
deleted file mode 100644
index c16eb6c..0000000
--- a/src/View/NotFound.hs
+++ /dev/null
@@ -1,26 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.NotFound
- ( renderNotFound
- ) where
-
-import Data.String (fromString)
-
-import Text.Blaze.Html
-import Text.Blaze.Html5
-import Text.Blaze.Html5.Attributes
-import qualified Text.Blaze.Html5 as H
-
-import Model.Translation.Language
-import qualified Model.Translation.Key as K
-import Model.Translation.Message
-
-import View.Header (renderHeader)
-
-renderNotFound :: Language -> Html
-renderNotFound language =
- H.div $ do
- renderHeader language Nothing
- H.div ! class_ "notFoundPage" $ do
- h1 "404"
- p .fromString $ getMessage K.PageNotFound language