aboutsummaryrefslogtreecommitdiff
path: root/src/Model/Model.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/Model/Model.elm')
-rw-r--r--src/Model/Model.elm34
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