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/Model.elm |  5 -----
 src/Model/Timer.elm | 17 -----------------
 2 files changed, 22 deletions(-)

(limited to 'src/Model')

diff --git a/src/Model/Model.elm b/src/Model/Model.elm
index ad1e9da..b929261 100644
--- a/src/Model/Model.elm
+++ b/src/Model/Model.elm
@@ -1,7 +1,6 @@
 module Model.Model
   ( Model
   , initialModel
-  , substractTimersTime
   , numberOfTimers
   ) where
 
@@ -32,9 +31,5 @@ initialModel initialTime =
       , timerEdition = Nothing
       }
 
-substractTimersTime : Time -> Dict Id Timer -> Dict Id Timer
-substractTimersTime t timers =
-  Dict.map (\id timer -> substractTimerTime t timer) timers
-
 numberOfTimers : Model -> Int
 numberOfTimers = List.length << Dict.toList << .timers
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