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.elm3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Model/Model.elm b/src/Model/Model.elm
index 9a20219..b7ac48a 100644
--- a/src/Model/Model.elm
+++ b/src/Model/Model.elm
@@ -9,6 +9,7 @@ import Dict
import Time (Time)
import Model.Timer (..)
+import Model.TimerEdition (..)
import Model.Id (..)
import Model.IdGenerator (..)
@@ -16,6 +17,7 @@ type alias Model =
{ currentTime : Time
, timers : Dict Id Timer
, timerIdGenerator : IdGenerator
+ , timerEdition : Maybe TimerEdition
}
initialModel : Time -> Model
@@ -25,6 +27,7 @@ initialModel initialTime =
in { currentTime = initialTime
, timers = Dict.insert id (initialTimer initialTime timerName) Dict.empty
, timerIdGenerator = idGenerator
+ , timerEdition = Nothing
}
substractTimersTime : Time -> Dict Id Timer -> Dict Id Timer