Debug unresponsive button press for selectKey

Observed problem: Tapping "C major, A minor" key, which LPC sets by default,
does not unset it.

Bug: handleClick passed the relativeMinor Key but the default value in
State.Model is the C Major key. We would toggled b/w [Cmajor] ->
[Cmajor,Aminor], and because toggled checked if either Cmajor or Aminor was
present, it was always true.

Solution: Check relativeMajor to set toggled.

1 files changed, 2 insertions, 2 deletions

diff --git a/website/sandbox/learnpianochords/src/Preferences.elm b/website/sandbox/learnpianochords/src/Preferences.elm
index c0288e1265e7..e385359b9f43 100644
--- a/website/sandbox/learnpianochords/src/Preferences.elm
+++ b/website/sandbox/learnpianochords/src/Preferences.elm
@@ -28,9 +28,9 @@ selectKey model { relativeMajor, relativeMinor } =
     div [ class "flex pt-0" ]
         [ UI.textToggleButton
             { label = buttonLabel relativeMajor relativeMinor
-            , handleClick = State.ToggleKey relativeMinor
+            , handleClick = State.ToggleKey relativeMajor
             , classes = [ "flex-1" ]
-            , toggled = active relativeMinor || active relativeMajor
+            , toggled = active relativeMajor
             }
         ]