aboutsummaryrefslogtreecommitdiff
path: root/src/Update
diff options
context:
space:
mode:
authorJoris Guyonvarch2015-03-21 17:54:44 +0100
committerJoris Guyonvarch2015-03-21 17:54:44 +0100
commitced86444353617a9eef0f940401348ee41f05aca (patch)
treeaedf98ac44705ab0e7c3b7620a9853966c48372d /src/Update
parentd57ea4eda1339ae55f1f1f6341d1af6b1a690330 (diff)
Do not validate time edition if the user did not prodive any numbers, and show the current time if there are no numbers
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 ->