From 9293fb062b0bf66995c72b30e037c762318be000 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Mon, 25 Sep 2017 16:08:43 +0200 Subject: Introduces 'States' for the model. --- client/elm/battlemap/src/Model.elm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'client/elm/battlemap/src/Model.elm') diff --git a/client/elm/battlemap/src/Model.elm b/client/elm/battlemap/src/Model.elm index 3bc240e..f5f57c0 100644 --- a/client/elm/battlemap/src/Model.elm +++ b/client/elm/battlemap/src/Model.elm @@ -1,4 +1,4 @@ -module Model exposing (Type) +module Model exposing (Type, State(..)) import Dict @@ -9,14 +9,16 @@ import Battlemap.RangeIndicator import Character -import Shim.Model +type State = + Default + | MovingCharacter Character.Ref -- MODEL type alias Type = { + state: State, battlemap: Battlemap.Type, navigator: (Maybe Battlemap.Navigator.Type), - selection: (Maybe String), characters: (Dict.Dict Character.Ref Character.Type), range_indicator: (Dict.Dict @@ -24,6 +26,3 @@ type alias Type = Battlemap.RangeIndicator.Type ) } - -model : Type -model = (Shim.Model.generate) -- cgit v1.2.3-70-g09d2