Adds UI to test the Navigator.

1 files changed, 14 insertions, 2 deletions

diff --git a/client/elm/battlemap/src/Model.elm b/client/elm/battlemap/src/Model.elm
index 024fc4d..3d69c7d 100644
--- a/client/elm/battlemap/src/Model.elm
+++ b/client/elm/battlemap/src/Model.elm
@@ -1,7 +1,19 @@
 module Model exposing (Model, model)
 
+import Battlemap as Bp exposing (Battlemap, random)
+import Battlemap.Location exposing (..)
+import Battlemap.Navigator as Nr exposing (Navigator, new_navigator)
+
 -- MODEL
-type alias Model = Int
+type alias Model =
+   {
+      battlemap: Bp.Battlemap,
+      navigator: (Maybe Nr.Navigator)
+   }
 
 model : Model
-model = 0
+model =
+   {
+      battlemap = (Bp.random),
+      navigator = (Just (Nr.new_navigator {x=2, y=4}))
+   }