aboutsummaryrefslogtreecommitdiff
path: root/client/src/View/NotFound.hs
blob: 1d4e47737763e98f50117ad71c3ce66ac5ceae33 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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  as Component

view :: forall t m. MonadWidget t m => m ()
view =
  R.divClass "notfound" $ do
    R.text (Msg.get Msg.NotFound_Message)

    Component.link
      "/"
      (R.constDyn $ M.singleton "class" "link")
      (Msg.get Msg.NotFound_LinkMessage)