diff options
Diffstat (limited to 'src/Update/Update.elm')
-rw-r--r-- | src/Update/Update.elm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/Update/Update.elm b/src/Update/Update.elm index 76f3f1d..48d3008 100644 --- a/src/Update/Update.elm +++ b/src/Update/Update.elm @@ -12,6 +12,7 @@ import Maybe import Keyboard (KeyCode) import Char import Debug +import List import Model.Model (..) import Model.Timer (..) @@ -89,10 +90,14 @@ update action model = ValidTimerEdition -> case model.timerEdition of Just timerEdition -> - { model - | timers <- updateTimerTime timerEdition model.timers - , timerEdition <- Nothing - } + if List.isEmpty timerEdition.numbers + then + { model | timerEdition <- Nothing } + else + { model + | timers <- updateTimerTime timerEdition model.timers + , timerEdition <- Nothing + } Nothing -> { model | timerEdition <- Nothing } ReadOnly -> |