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 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'src/Model')

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