summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'client/elm/battlemap/src/Battlemap')
-rw-r--r--client/elm/battlemap/src/Battlemap/Navigator.elm12
-rw-r--r--client/elm/battlemap/src/Battlemap/Tile.elm8
2 files changed, 9 insertions, 11 deletions
diff --git a/client/elm/battlemap/src/Battlemap/Navigator.elm b/client/elm/battlemap/src/Battlemap/Navigator.elm
index 79f1f73..3a0ca05 100644
--- a/client/elm/battlemap/src/Battlemap/Navigator.elm
+++ b/client/elm/battlemap/src/Battlemap/Navigator.elm
@@ -1,11 +1,10 @@
module Battlemap.Navigator exposing
(
Type,
- new_navigator,
- reset_navigation
+ new_navigator
)
-import Set -- exposing (Set, member, empty, insert, remove)
+import Set
import Battlemap
import Battlemap.Direction
@@ -29,10 +28,3 @@ new_navigator start points =
previous_directions = [],
remaining_points = points
}
-
-
-reset_navigation : Battlemap.Tile.Type -> Battlemap.Tile.Type
-reset_navigation t =
- {t |
- nav_level = Battlemap.Direction.None
- }
diff --git a/client/elm/battlemap/src/Battlemap/Tile.elm b/client/elm/battlemap/src/Battlemap/Tile.elm
index dca7a64..068ee30 100644
--- a/client/elm/battlemap/src/Battlemap/Tile.elm
+++ b/client/elm/battlemap/src/Battlemap/Tile.elm
@@ -1,4 +1,4 @@
-module Battlemap.Tile exposing (Type, set_direction)
+module Battlemap.Tile exposing (Type, set_direction, set_navigation)
import Battlemap.Direction
import Character
@@ -16,3 +16,9 @@ set_direction d t =
{t |
nav_level = d
}
+
+set_navigation : Battlemap.Direction.Type -> Type -> Type
+set_navigation dir t =
+ {t |
+ nav_level = dir
+ }