diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Update/UpdateTimer.elm | 5 | ||||
| -rw-r--r-- | src/View/Timer.elm | 5 |
2 files changed, 10 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 diff --git a/src/View/Timer.elm b/src/View/Timer.elm index 98f6514..271de5c 100644 --- a/src/View/Timer.elm +++ b/src/View/Timer.elm @@ -28,6 +28,11 @@ timerView (id, timer) = [ class <| "time block" ] [ text (timeView timer.currentTime) ] , button + [ class <| "restart block" + , onClick (Signal.send updates (UpdateTimer id Restart)) + ] + [ i [ class "fa fa-fw fa-backward" ] [] ] + , button [ class <| "stop block" , onClick (Signal.send updates (UpdateTimer id Stop)) ] |