From d57ea4eda1339ae55f1f1f6341d1af6b1a690330 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 21 Mar 2015 15:57:37 +0100
Subject: Can remove numbers in timer edition

---
 src/Update/Update.elm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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

diff --git a/src/Update/Update.elm b/src/Update/Update.elm
index 5e8c13e..76f3f1d 100644
--- a/src/Update/Update.elm
+++ b/src/Update/Update.elm
@@ -98,8 +98,15 @@ update action model =
     ReadOnly ->
       { model | timerEdition <- Nothing }
     KeyPressed keyCode ->
-      { model | timerEdition <- Maybe.map (updateTimerEdition (keyCodeToNumberChar keyCode)) model.timerEdition }
+      if isRemoveKeyCode keyCode
+        then
+          { model | timerEdition <- Maybe.map (updateTimerEdition DeleteLast) model.timerEdition }
+        else
+          { model | timerEdition <- Maybe.map (updateTimerEdition (AddNumber keyCode)) model.timerEdition }
 
 updateTimerTime : TimerEdition -> Dict Id Timer -> Dict Id Timer
 updateTimerTime timerEdition =
   Dict.update timerEdition.id (Maybe.map (updateTimer (SetTime (toTime timerEdition.numbers))))
+
+isRemoveKeyCode : KeyCode -> Bool
+isRemoveKeyCode = (==) 8
-- 
cgit v1.2.3