Can edit the time, unfortunately the enter key is overriden so the '+' key of the numpad is used instead

1 files changed, 20 insertions, 0 deletions

diff --git a/src/Update/UpdateTimerEdition.elm b/src/Update/UpdateTimerEdition.elm
new file mode 100644
index 0000000..da12ed0
--- /dev/null
+++ b/src/Update/UpdateTimerEdition.elm
@@ -0,0 +1,20 @@
+module Update.UpdateTimerEdition
+  ( updateTimerEdition
+  ) where
+
+import Char (..)
+import Debug
+
+import Model.TimerEdition (..)
+
+updateTimerEdition : Maybe Char -> TimerEdition -> TimerEdition
+updateTimerEdition maybeChar timerEdition =
+  case maybeChar of
+    Just char ->
+      if isDigit char
+        then
+          { timerEdition | numbers <- char :: timerEdition.numbers }
+        else
+          timerEdition
+    Nothing ->
+      timerEdition