aboutsummaryrefslogtreecommitdiff
path: root/src/Model/Model.elm
diff options
context:
space:
mode:
authorJoris Guyonvarch2015-03-17 21:26:40 +0100
committerJoris Guyonvarch2015-03-17 21:26:40 +0100
commit0075abf51db5d1b54117525d7a7f9b06e31c9484 (patch)
treeed7a5b8c3ac74113dca96463a41dcd00548d20c8 /src/Model/Model.elm
parentc3e8b1a4d428160976c5d9ad770763e8db02f3bc (diff)
Adding an edition mode for a timer
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