From 466d5dfdf398ba8c8665c841e04dafea7c288b95 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 21 Mar 2015 21:11:10 +0100
Subject: Adding a progress bar to the timer time

---
 src/Model/Timer.elm | 17 -----------------
 1 file changed, 17 deletions(-)

(limited to 'src/Model/Timer.elm')

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