diff options
Diffstat (limited to 'scratch/habit-screens/client/src/State.elm')
| -rw-r--r-- | scratch/habit-screens/client/src/State.elm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/scratch/habit-screens/client/src/State.elm b/scratch/habit-screens/client/src/State.elm index c5cdadf3afa0..5fde06c8000c 100644 --- a/scratch/habit-screens/client/src/State.elm +++ b/scratch/habit-screens/client/src/State.elm @@ -15,6 +15,7 @@ type Msg | ViewToday | ViewPrevious | ViewNext + | ClearAll type View @@ -165,3 +166,6 @@ update msg ({ today, visibleDayOfWeek, completed } as model) = } , Cmd.none ) + + ClearAll -> + ( { model | completed = Set.empty }, Cmd.none ) |