From 36cb1d0392f4d32a4eed50ef2cc098dc90bb44e1 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 16 Mar 2015 21:10:07 +0100
Subject: Initial time is 999 ms more than it has to be in order to see for 999
 ms the initial time

---
 src/Model/Timer.elm        | 17 +++++++++++------
 src/Update/UpdateTimer.elm |  5 +++--
 2 files changed, 14 insertions(+), 8 deletions(-)

(limited to 'src')

diff --git a/src/Model/Timer.elm b/src/Model/Timer.elm
index 7d345b2..bfb734d 100644
--- a/src/Model/Timer.elm
+++ b/src/Model/Timer.elm
@@ -2,6 +2,7 @@ module Model.Timer
   ( Timer
   , initialTimer
   , substractTimerTime
+  , initTime
   ) where
 
 import List
@@ -17,12 +18,13 @@ type alias Timer =
 
 initialTimer : Time -> String -> Timer
 initialTimer creationTime name =
-  { creationTime = creationTime
-  , name = name
-  , initialTime = 5 * 60 * 1000
-  , currentTime = 5 * 60 * 1000
-  , isRunning = True
-  }
+  let initialTime = 5 * 60 * 1000
+  in  { creationTime = creationTime
+      , name = name
+      , initialTime = initialTime
+      , currentTime = initTime initialTime
+      , isRunning = True
+      }
 
 substractTimerTime : Time -> Timer -> Timer
 substractTimerTime time timer =
@@ -40,3 +42,6 @@ substractTimerTime time timer =
           }
     else
       timer
+
+initTime : Time -> Time
+initTime t = t + 999
diff --git a/src/Update/UpdateTimer.elm b/src/Update/UpdateTimer.elm
index 771ef1c..b3be088 100644
--- a/src/Update/UpdateTimer.elm
+++ b/src/Update/UpdateTimer.elm
@@ -18,10 +18,11 @@ updateTimer action timer =
       { timer | isRunning <- not timer.isRunning }
     Restart ->
       { timer
-      | currentTime <- timer.initialTime
+      | isRunning <- True
+      , currentTime <- initTime timer.initialTime
       }
     Stop ->
       { timer
       | isRunning <- False
-      , currentTime <- timer.initialTime
+      , currentTime <- initTime timer.initialTime
       }
-- 
cgit v1.2.3