diff options
Diffstat (limited to 'src/Update/Update.elm')
| -rw-r--r-- | src/Update/Update.elm | 9 |
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 |