summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'client/elm/battlemap/src/View.elm')
-rw-r--r--client/elm/battlemap/src/View.elm35
1 files changed, 35 insertions, 0 deletions
diff --git a/client/elm/battlemap/src/View.elm b/client/elm/battlemap/src/View.elm
new file mode 100644
index 0000000..f4774c7
--- /dev/null
+++ b/client/elm/battlemap/src/View.elm
@@ -0,0 +1,35 @@
+module View exposing (view)
+
+import Html exposing (Html, button, div, text, table, tr, td)
+import Html.Events exposing (onClick)
+
+import Update exposing (Msg(Increment, Decrement))
+import Model exposing (Model)
+
+import Battlemap.Html as Batmap exposing (view)
+
+-- VIEW
+
+view : Model -> (Html Msg)
+view model =
+ (div
+ []
+ [
+ (button
+ [ (onClick Decrement) ]
+ [ (text "-") ]
+ ),
+ (div
+ []
+ [ (text (toString model)) ]
+ ),
+ (button
+ [ (onClick Increment) ]
+ [ (text "+") ]
+ ),
+ (div
+ []
+ [(Batmap.view model)]
+ )
+ ]
+ )