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 +++++++++----
 src/View/Timer.elm    |  8 +++++++-
 2 files changed, 16 insertions(+), 5 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 ->
diff --git a/src/View/Timer.elm b/src/View/Timer.elm
index 4523334..ca5edc6 100644
--- a/src/View/Timer.elm
+++ b/src/View/Timer.elm
@@ -9,6 +9,7 @@ import String
 import Time (Time)
 import Signal
 import Maybe
+import List
 
 import Model.Model (..)
 import Model.Timer (..)
@@ -56,7 +57,12 @@ timeBlock model (id, timer) =
             [ class "time block edition"
             , onClick (stopIfRinging (id, timer) (Signal.send updates ValidTimerEdition))
             ]
-            [ text (editionView edition.numbers) ]
+            [ if List.isEmpty edition.numbers
+                then
+                  text (timeView timer.currentTime)
+                else
+                  text (editionView edition.numbers)
+            ]
         Nothing ->
           button
             [ class "time block"
-- 
cgit v1.2.3