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/Update/Update.elm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Update/Update.elm')

diff --git a/src/Update/Update.elm b/src/Update/Update.elm
index f96a128..fabe0e8 100644
--- a/src/Update/Update.elm
+++ b/src/Update/Update.elm
@@ -62,7 +62,7 @@ update action model =
     DeltaTime delta ->
       { model
       | currentTime <- model.currentTime + delta
-      , timers <- substractTimersTime delta model.timers
+      , timers <- Dict.map (\id timer -> updateTimer (SubstractTime delta) timer) model.timers
       }
     UpdateTimer id action ->
       let maybeTimerEdition = filterMaybe (\timerEdition -> timerEdition.id == id) model.timerEdition
-- 
cgit v1.2.3