diff --git a/schedule/src/Messages.elm b/schedule/src/Messages.elm index 399914b3..9cfc8b31 100644 --- a/schedule/src/Messages.elm +++ b/schedule/src/Messages.elm @@ -14,6 +14,7 @@ type Msg = NoOp | WebSocketPayload String | MakeActiveday Day + | RemoveActiveDay | ToggleEventTypeFilter EventType | ToggleEventLocationFilter EventLocation | OnLocationChange Location diff --git a/schedule/src/Update.elm b/schedule/src/Update.elm index 8a29c0ac..50955bbb 100644 --- a/schedule/src/Update.elm +++ b/schedule/src/Update.elm @@ -62,6 +62,9 @@ update msg model = MakeActiveday day -> { model | activeDay = Just day } ! [] + RemoveActiveDay -> + { model | activeDay = Nothing } ! [] + ToggleEventTypeFilter eventType -> let eventTypesFilter = diff --git a/schedule/src/Views/DayPicker.elm b/schedule/src/Views/DayPicker.elm index 580f1316..d572ab28 100644 --- a/schedule/src/Views/DayPicker.elm +++ b/schedule/src/Views/DayPicker.elm @@ -34,6 +34,7 @@ dayPicker model = , ( "btn-primary", isAllDaysActive ) ] , href ("#") + , onClick (RemoveActiveDay) ] [ text "All Days" ]