diff options
author | Joris Guyonvarch | 2015-03-17 21:26:40 +0100 |
---|---|---|
committer | Joris Guyonvarch | 2015-03-17 21:26:40 +0100 |
commit | 0075abf51db5d1b54117525d7a7f9b06e31c9484 (patch) | |
tree | ed7a5b8c3ac74113dca96463a41dcd00548d20c8 /src/Model/Model.elm | |
parent | c3e8b1a4d428160976c5d9ad770763e8db02f3bc (diff) |
Adding an edition mode for a timer
Diffstat (limited to 'src/Model/Model.elm')
-rw-r--r-- | src/Model/Model.elm | 3 |
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 |