aboutsummaryrefslogtreecommitdiff
path: root/src/Update
diff options
context:
space:
mode:
Diffstat (limited to 'src/Update')
-rw-r--r--src/Update/Update.elm13
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 ->