diff options
| -rw-r--r-- | website/sandbox/learnpianochords/src/State.elm | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/website/sandbox/learnpianochords/src/State.elm b/website/sandbox/learnpianochords/src/State.elm index fa08f9441893..cce3c34eb38e 100644 --- a/website/sandbox/learnpianochords/src/State.elm +++ b/website/sandbox/learnpianochords/src/State.elm @@ -17,8 +17,6 @@ type Msg | ToggleKey Theory.Key | DoNothing | SetPracticeMode PracticeMode - | SelectAllKeys - | DeselectAllKeys | SetView View @@ -125,23 +123,6 @@ update msg model = , Cmd.none ) - SelectAllKeys -> - ( { model - | whitelistedKeys = Theory.allKeys - , whitelistedChords = - Theory.allKeys |> List.concatMap Theory.chordsForKey - } - , Cmd.none - ) - - DeselectAllKeys -> - ( { model - | whitelistedKeys = [] - , whitelistedChords = [] - } - , Cmd.none - ) - NewChord chord -> ( { model | selectedChord = Just chord } , Cmd.none |