From 1cfd5e02bbd92f54a6b888d475f9f3002f3763bb Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 16 Mar 2015 21:00:52 +0100
Subject: Adding a restart button

---
 src/Update/UpdateTimer.elm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Update')

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
-- 
cgit v1.2.3