diff options
| author | Joris | 2019-10-22 22:26:38 +0200 |
|---|---|---|
| committer | Joris | 2019-10-22 22:26:38 +0200 |
| commit | 613ffccac4b3ab25c6d4c631fab757da0b35acf6 (patch) | |
| tree | 13e448af89f4079bb62d7ce8b5a44b6a64515129 /client/src/View/NotFound.hs | |
| parent | 80f09e8b3a5c856e60922a73c9161a8c5392e4d4 (diff) | |
Harmonize view component code style
Diffstat (limited to 'client/src/View/NotFound.hs')
| -rw-r--r-- | client/src/View/NotFound.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/client/src/View/NotFound.hs b/client/src/View/NotFound.hs index 1d4e477..1597849 100644 --- a/client/src/View/NotFound.hs +++ b/client/src/View/NotFound.hs @@ -2,19 +2,19 @@ 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 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 +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) - Component.link + Link.view "/" (R.constDyn $ M.singleton "class" "link") (Msg.get Msg.NotFound_LinkMessage) |