From ced86444353617a9eef0f940401348ee41f05aca Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 21 Mar 2015 17:54:44 +0100
Subject: Do not validate time edition if the user did not prodive any numbers,
 and show the current time if there are no numbers

---
 src/Update/Update.elm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'src/Update/Update.elm')

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 ->
-- 
cgit v1.2.3