Can remove numbers in timer edition

1 files changed, 8 insertions, 1 deletions

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