Range indicators are now clickable.

1 files changed, 13 insertions, 20 deletions

diff --git a/client/elm/battlemap/src/Update.elm b/client/elm/battlemap/src/Update.elm
index 5c97ab8..b6b2a80 100644
--- a/client/elm/battlemap/src/Update.elm
+++ b/client/elm/battlemap/src/Update.elm
@@ -1,32 +1,25 @@
-module Update exposing (update, Type(..))
+module Update exposing (update)
+
+import Event
 
 import Model
 
 import Update.DirectionRequest
+import Update.SelectTile
 import Update.SelectCharacter
 import Update.EndTurn
 
-import Battlemap
-import Battlemap.Direction
-import Battlemap.Navigator
-
-import Dict
-
-import Character
-
-type Type =
-   DirectionRequest Battlemap.Direction.Type
-   | SelectCharacter Character.Ref
-   | EndTurn
-
-update : Type -> Model.Type -> Model.Type
-update msg model =
-   case msg of
-      (DirectionRequest d) ->
+update : Event.Type -> Model.Type -> Model.Type
+update event model =
+   case event of
+      (Event.DirectionRequest d) ->
          (Update.DirectionRequest.apply_to model d)
 
-      (SelectCharacter char_id) ->
+      (Event.SelectTile loc) ->
+         (Update.SelectTile.apply_to model loc)
+
+      (Event.SelectCharacter char_id) ->
          (Update.SelectCharacter.apply_to model char_id)
 
-      EndTurn ->
+      Event.EndTurn ->
          (Update.EndTurn.apply_to model)