Adds UI to test the Navigator.

1 files changed, 13 insertions, 8 deletions

diff --git a/client/elm/battlemap/src/View.elm b/client/elm/battlemap/src/View.elm
index f4774c7..7058681 100644
--- a/client/elm/battlemap/src/View.elm
+++ b/client/elm/battlemap/src/View.elm
@@ -3,10 +3,11 @@ 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 Update exposing (..)
 import Model exposing (Model)
 
 import Battlemap.Html as Batmap exposing (view)
+import Battlemap.Direction exposing (..)
 
 -- VIEW
 
@@ -16,16 +17,20 @@ view model =
       []
       [
          (button
-            [ (onClick Decrement) ]
-            [ (text "-") ]
+            [ (onClick (DirectionRequest Left)) ]
+            [ (text "Left") ]
          ),
-         (div
-            []
-            [ (text (toString model)) ]
+         (button
+            [ (onClick (DirectionRequest Down)) ]
+            [ (text "Down") ]
+         ),
+         (button
+            [ (onClick (DirectionRequest Up)) ]
+            [ (text "Up") ]
          ),
          (button
-            [ (onClick Increment) ]
-            [ (text "+") ]
+            [ (onClick (DirectionRequest Right)) ]
+            [ (text "Right") ]
          ),
          (div
             []