From 27917f041ddb438c4fa8576487816220c3824eae Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Thu, 19 Mar 2015 20:18:35 +0100
Subject: Fixing updates giving wrong  states

---
 src/Update/Update.elm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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

diff --git a/src/Update/Update.elm b/src/Update/Update.elm
index 3bdcc2b..c6c5f32 100644
--- a/src/Update/Update.elm
+++ b/src/Update/Update.elm
@@ -11,6 +11,7 @@ import Time (Time)
 import Maybe
 import Keyboard (KeyCode)
 import Char
+import Debug
 
 import Model.Model (..)
 import Model.Timer (..)
@@ -38,6 +39,12 @@ type Action =
 updates : Signal.Channel Action
 updates = Signal.channel NoOp
 
+logUpdate : Action -> Model -> Model
+logUpdate action model =
+  case action of
+    DeltaTime _ -> update action model
+    _ -> update (Debug.log "action" action) model
+
 update : Action -> Model -> Model
 update action model =
   case action of
@@ -57,9 +64,8 @@ update action model =
       , timers <- substractTimersTime delta model.timers
       }
     UpdateTimer id action ->
-
       let maybeTimerEdition = filterMaybe (\timerEdition -> timerEdition.id == id) model.timerEdition
-      in  case model.timerEdition of
+      in  case maybeTimerEdition of
             Just timerEdition ->
               { model
               | timers <-
-- 
cgit v1.2.3