Adding a remove button to delete a timer

1 files changed, 3 insertions, 0 deletions

diff --git a/src/Update/Update.elm b/src/Update/Update.elm
index 0252fc8..635e29d 100644
--- a/src/Update/Update.elm
+++ b/src/Update/Update.elm
@@ -22,6 +22,7 @@ type Action =
   | AddNewTimer
   | DeltaTime Time
   | UpdateTimer Id TimerAction
+  | RemoveTimer Id
 
 updates : Signal.Channel Action
 updates = Signal.channel NoOp
@@ -46,3 +47,5 @@ update action model =
       }
     UpdateTimer id action ->
       { model | timers <- Dict.update id (Maybe.map (updateTimer action)) model.timers }
+    RemoveTimer id ->
+      { model | timers <- Dict.remove id model.timers }