diff options
| author | Joris Guyonvarch | 2015-03-22 12:53:55 +0100 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-03-22 12:53:55 +0100 |
| commit | 2abb8ffa46cbe86deedb9ddcbb9b042b51285feb (patch) | |
| tree | 3756c16ccdf8b61000767637db0807f3d40e12cc /src/Update/UpdateTimer.elm | |
| parent | ce4580451def7e86d0f67d2c353ac65239e17fd1 (diff) | |
Editing name first draft
Diffstat (limited to 'src/Update/UpdateTimer.elm')
| -rw-r--r-- | src/Update/UpdateTimer.elm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Update/UpdateTimer.elm b/src/Update/UpdateTimer.elm index 2e0d9af..30603cd 100644 --- a/src/Update/UpdateTimer.elm +++ b/src/Update/UpdateTimer.elm @@ -10,7 +10,8 @@ import Model.TimerState (..) import Model.Id (..) type TimerAction = - Pause + Rename String + | Pause | ToggleRunning | Stop | SetTime Time @@ -19,6 +20,8 @@ type TimerAction = updateTimer : TimerAction -> Timer -> Timer updateTimer action timer = case action of + Rename name -> + { timer | name <- Just name } Pause -> { timer | state <- Idle } ToggleRunning -> |