Adding a progress bar to the timer time

1 files changed, 0 insertions, 17 deletions

diff --git a/src/Model/Timer.elm b/src/Model/Timer.elm
index b73016d..f05c487 100644
--- a/src/Model/Timer.elm
+++ b/src/Model/Timer.elm
@@ -1,7 +1,6 @@
 module Model.Timer
   ( Timer
   , initialTimer
-  , substractTimerTime
   , initTime
   ) where
 
@@ -28,21 +27,5 @@ initialTimer creationTime name =
       , state = Idle
       }
 
-substractTimerTime : Time -> Timer -> Timer
-substractTimerTime time timer =
-  if timer.state == Running
-    then
-      let newTime = timer.currentTime - time
-      in  if newTime <= 0.0
-            then
-              { timer
-              | currentTime <- 0.0
-              , state <- Ringing
-              }
-            else
-              { timer | currentTime <- newTime }
-    else
-      timer
-
 initTime : Time -> Time
 initTime t = t + 999