From 2805c647010cbcca126ebf162fcbdd691fc72488 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Wed, 18 Oct 2017 13:48:58 +0200 Subject: Correcting whatever the compiler tells me is wrong. --- elm/battlemap/src/View/Battlemap.elm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 elm/battlemap/src/View/Battlemap.elm (limited to 'elm/battlemap/src/View/Battlemap.elm') diff --git a/elm/battlemap/src/View/Battlemap.elm b/elm/battlemap/src/View/Battlemap.elm new file mode 100644 index 0000000..1e10a2a --- /dev/null +++ b/elm/battlemap/src/View/Battlemap.elm @@ -0,0 +1,26 @@ +module View.Battlemap exposing (view) + +import View.Battlemap.Tile +import View.Battlemap.Navigator + +view : Battlemap.Type -> (Html.Html Event.Type) +view battlemap = + (Html.div + [ + (Html.Attribute.class "battlemap-container") + ] + [ + ( + , + case battlemap.navigator of + (Just navigator) -> + (Html.div + [ + (Html.Attribute.class "battlemap-navigator-container") + ] + [ (Battlemap.Navigator.Html.view battlemap.navigator) ] + ) + + Nothing -> (Html.text "") -- Meaning no element. + ] + ) -- cgit v1.2.3-70-g09d2