aboutsummaryrefslogtreecommitdiff
path: root/client/src/View/NotFound.hs
diff options
context:
space:
mode:
Diffstat (limited to 'client/src/View/NotFound.hs')
-rw-r--r--client/src/View/NotFound.hs20
1 files changed, 0 insertions, 20 deletions
diff --git a/client/src/View/NotFound.hs b/client/src/View/NotFound.hs
deleted file mode 100644
index 1597849..0000000
--- a/client/src/View/NotFound.hs
+++ /dev/null
@@ -1,20 +0,0 @@
-module View.NotFound
- ( view
- ) where
-
-import qualified Data.Map as M
-import Reflex.Dom (Dynamic, Event, MonadWidget)
-import qualified Reflex.Dom as R
-
-import qualified Common.Msg as Msg
-import qualified Component.Link as Link
-
-view :: forall t m. MonadWidget t m => m ()
-view =
- R.divClass "notfound" $ do
- R.text (Msg.get Msg.NotFound_Message)
-
- Link.view
- "/"
- (R.constDyn $ M.singleton "class" "link")
- (Msg.get Msg.NotFound_LinkMessage)