Starting a more modular approach for the website.

1 files changed, 0 insertions, 58 deletions

diff --git a/elm/battlemap/src/Model.elm b/elm/battlemap/src/Model.elm
deleted file mode 100644
index ed067d3..0000000
--- a/elm/battlemap/src/Model.elm
+++ /dev/null
@@ -1,58 +0,0 @@
-module Model exposing
-   (
-      Type,
-      Selection(..),
-      State(..),
-      get_state,
-      invalidate,
-      reset,
-      clear_error
-   )
-
-import Dict
-
-import Battlemap
-import Battlemap.Location
-
-import Error
-
-import Character
-
-type State =
-   Default
-   | MovingCharacterWithButtons
-   | MovingCharacterWithClick
-   | FocusingTile
-
-type Selection =
-   None
-   | SelectedCharacter Character.Ref
-   | SelectedTile Battlemap.Location.Ref
-
-type alias Type =
-   {
-      state: State,
-      battlemap: Battlemap.Type,
-      characters: (Dict.Dict Character.Ref Character.Type),
-      error: (Maybe Error.Type),
-      selection: Selection
-   }
-
-get_state : Type -> State
-get_state model = model.state
-
-reset : Type -> (Dict.Dict Character.Ref Character.Type) -> Type
-reset model characters =
-   {model |
-      state = Default,
-      battlemap = (Battlemap.reset model.battlemap),
-      characters = characters,
-      error = Nothing,
-      selection = None
-   }
-
-invalidate : Type -> Error.Type -> Type
-invalidate model err = {model | error = (Just err)}
-
-clear_error : Type -> Type
-clear_error model = {model | error = Nothing}