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)
|
