Starting a more modular approach for the website.

1 files changed, 0 insertions, 63 deletions

diff --git a/elm/battlemap/src/Model/EndTurn.elm b/elm/battlemap/src/Model/EndTurn.elm
deleted file mode 100644
index 441f3b7..0000000
--- a/elm/battlemap/src/Model/EndTurn.elm
+++ /dev/null
@@ -1,63 +0,0 @@
-module Model.EndTurn exposing (apply_to)
-
-import Dict
-
-import Battlemap
-
-import Character
-
-import Error
-
-import Model
-
-make_it_so : Model.Type -> Model.Type
-make_it_so model =
-   case model.selection of
-      (Model.SelectedCharacter char_id) ->
-         case (Battlemap.try_getting_navigator_location model.battlemap) of
-            (Just location) ->
-               (Model.reset
-                  model
-                  (Dict.update
-                     char_id
-                     (\maybe_char ->
-                        case maybe_char of
-                           (Just char) ->
-                              (Just
-                                 (Character.set_location location char)
-                              )
-                           Nothing -> Nothing
-                     )
-                     model.characters
-                  )
-               )
-            Nothing ->
-               (Model.invalidate
-                  model
-                  (Error.new
-                     Error.Programming
-                     "EndTurn: model moving char, no navigator location."
-                  )
-               )
-      _ ->
-         (Model.invalidate
-            model
-            (Error.new
-               Error.Programming
-               "EndTurn: model moving char, no char selected."
-            )
-         )
-
-apply_to : Model.Type -> Model.Type
-apply_to model =
-   case (Model.get_state model) of
-      Model.MovingCharacterWithButtons -> (make_it_so model)
-      Model.MovingCharacterWithClick -> (make_it_so model)
-      _ ->
-         (Model.invalidate
-            model
-            (Error.new
-               Error.IllegalAction
-               "This can only be done while moving a character."
-            )
-         )