diff options
Diffstat (limited to 'src/Update/UpdateTimer.elm')
| -rw-r--r-- | src/Update/UpdateTimer.elm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Update/UpdateTimer.elm b/src/Update/UpdateTimer.elm index 40085ed..771ef1c 100644 --- a/src/Update/UpdateTimer.elm +++ b/src/Update/UpdateTimer.elm @@ -8,6 +8,7 @@ import Model.Id (..) type TimerAction = ToggleRunning + | Restart | Stop updateTimer : TimerAction -> Timer -> Timer @@ -15,6 +16,10 @@ updateTimer action timer = case action of ToggleRunning -> { timer | isRunning <- not timer.isRunning } + Restart -> + { timer + | currentTime <- timer.initialTime + } Stop -> { timer | isRunning <- False |