Initial time is 999 ms more than it has to be in order to see for 999 ms the initial time

1 files changed, 11 insertions, 6 deletions

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