Updating design

1 files changed, 2 insertions, 3 deletions

diff --git a/src/Model/Model.elm b/src/Model/Model.elm
index a3b4780..9a20219 100644
--- a/src/Model/Model.elm
+++ b/src/Model/Model.elm
@@ -14,7 +14,6 @@ import Model.IdGenerator (..)
 
 type alias Model =
   { currentTime : Time
-  , newTimerName : String
   , timers : Dict Id Timer
   , timerIdGenerator : IdGenerator
   }
@@ -22,9 +21,9 @@ type alias Model =
 initialModel : Time -> Model
 initialModel initialTime =
   let (id, idGenerator) = getId initialIdGenerator
+      timerName = "Timer " ++ (toString id)
   in  { currentTime = initialTime
-      , newTimerName = ""
-      , timers = Dict.insert id (initialTimer initialTime "Timer") Dict.empty
+      , timers = Dict.insert id (initialTimer initialTime timerName) Dict.empty
       , timerIdGenerator = idGenerator
       }