From 23f04635cc26e1b0553088f28553f518488a9fc8 Mon Sep 17 00:00:00 2001 From: Joris Date: Wed, 1 May 2019 15:52:32 +0200 Subject: Setup personal page with Hakyll --- src/View/NotFound.hs | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100644 src/View/NotFound.hs (limited to 'src/View/NotFound.hs') 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 -- cgit v1.2.3