From 16abf2b1e598cb89a1d4251c2313e6f2e165f7da Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Fri, 22 Sep 2017 14:35:25 +0200
Subject: Clears up Update.elm a bit.

---
 .../elm/battlemap/src/Update/DirectionRequest.elm  | 28 ++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 client/elm/battlemap/src/Update/DirectionRequest.elm

(limited to 'client/elm/battlemap/src/Update/DirectionRequest.elm')

diff --git a/client/elm/battlemap/src/Update/DirectionRequest.elm b/client/elm/battlemap/src/Update/DirectionRequest.elm
new file mode 100644
index 0000000..6f30866
--- /dev/null
+++ b/client/elm/battlemap/src/Update/DirectionRequest.elm
@@ -0,0 +1,28 @@
+module Update.DirectionRequest exposing (apply_to)
+
+import Dict
+
+import Battlemap.Direction
+import Battlemap.Navigator
+
+import Model
+
+apply_to : Model.Type -> Battlemap.Direction.Type -> Model.Type
+apply_to model dir =
+   case (model.selection, model.navigator) of
+      (Nothing, _) -> model
+      (_ , Nothing) -> model
+      ((Just char_id), (Just nav)) ->
+         let
+            (new_bmap, new_nav) =
+               (Battlemap.Navigator.go
+                  model.battlemap
+                  nav
+                  dir
+                  (Dict.values model.characters)
+               )
+         in
+            {model |
+               battlemap = new_bmap,
+               navigator = (Just new_nav)
+            }
-- 
cgit v1.2.3-70-g09d2