From 8060fc370a8e16c7f39b1f63c6dc9127073eb5fe Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 16 Mar 2015 21:59:06 +0100
Subject: Updating design

---
 src/Model/Model.elm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

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