aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoris Guyonvarch2015-03-22 13:54:32 +0100
committerJoris Guyonvarch2015-03-22 13:54:32 +0100
commit1ecd777c185cacbf640dc3ab46b84065ef3b40d9 (patch)
tree6a6ae23def8e4fb8fce67c9a3c2bd18cc2f8c6ae
parent7037f04e3118346e9b7510e90e1ef98bbcab0f3f (diff)
downloadtimer-1ecd777c185cacbf640dc3ab46b84065ef3b40d9.tar.gz
timer-1ecd777c185cacbf640dc3ab46b84065ef3b40d9.tar.bz2
timer-1ecd777c185cacbf640dc3ab46b84065ef3b40d9.zip
Do not pause a timer when editing its name
-rw-r--r--src/Update/Update.elm5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Update/Update.elm b/src/Update/Update.elm
index 8fd5cb3..87df965 100644
--- a/src/Update/Update.elm
+++ b/src/Update/Update.elm
@@ -83,7 +83,10 @@ update action model =
Edit id kind ->
{ model
| edition <- Just (newEdition id kind)
- , timers <- Dict.update id (Maybe.map (updateTimer Pause)) model.timers
+ , timers <-
+ if kind == Time
+ then Dict.update id (Maybe.map (updateTimer Pause)) model.timers
+ else model.timers
}
ValidEdition ->
validEdition model