diff options
Diffstat (limited to 'src/Model/Model.elm')
-rw-r--r-- | src/Model/Model.elm | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/src/Model/Model.elm b/src/Model/Model.elm deleted file mode 100644 index a660b16..0000000 --- a/src/Model/Model.elm +++ /dev/null @@ -1,34 +0,0 @@ -module Model.Model - ( Model - , initialModel - , numberOfTimers - ) where - -import Dict exposing (Dict) -import Dict -import Time exposing (Time) -import List - -import Model.Timer exposing (..) -import Model.Edition.Edition exposing (..) -import Model.Id exposing (..) -import Model.IdGenerator exposing (..) - -type alias Model = - { currentTime : Time - , timers : Dict Id Timer - , timerIdGenerator : IdGenerator - , edition : Maybe Edition - } - -initialModel : Time -> Model -initialModel initialTime = - let (id, idGenerator) = getId initialIdGenerator - in { currentTime = initialTime - , timers = Dict.insert id (initialTimer initialTime) Dict.empty - , timerIdGenerator = idGenerator - , edition = Nothing - } - -numberOfTimers : Model -> Int -numberOfTimers = List.length << Dict.toList << .timers |