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)