Upgrade to elm 0.17.1

1 files changed, 27 insertions, 0 deletions

diff --git a/src/Timer/Model.elm b/src/Timer/Model.elm
new file mode 100644
index 0000000..89af67e
--- /dev/null
+++ b/src/Timer/Model.elm
@@ -0,0 +1,27 @@
+module Timer.Model exposing
+  ( Timer
+  , init
+  )
+
+import List
+import Time exposing (Time)
+
+import Timer.Model.State exposing (..)
+
+type alias Timer =
+  { creationTime : Time
+  , name : Maybe String
+  , initialTime : Time
+  , time : Time
+  , state : State
+  }
+
+init : Time -> Timer
+init creationTime =
+  let initialTime = 5 * 60 * 1000
+  in  { creationTime = creationTime
+      , name = Nothing
+      , initialTime = initialTime
+      , time = initialTime
+      , state = Idle
+      }