about summary refs log tree commit diff
path: root/website/sandbox
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-04-19T18·02+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-04-19T18·02+0100
commitae31090a466361f616ca78c685612853ea74d50b (patch)
tree56dc4091ccd91cc14c4d2ce836380c1d53b9fbf2 /website/sandbox
parent541c40cd2f0524cfa4c70c531c0ed6e7803ffda2 (diff)
Remove unused Msg's
I'm sure this app contains more unused code. I would like to find some Elm tools
for detecting and deleting dead code, but this isn't my current priority.

My current priority is dogfooding this app until I find it genuinely useful for
myself.
Diffstat (limited to 'website/sandbox')
-rw-r--r--website/sandbox/learnpianochords/src/State.elm48
1 files changed, 0 insertions, 48 deletions
diff --git a/website/sandbox/learnpianochords/src/State.elm b/website/sandbox/learnpianochords/src/State.elm
index 764c8b2564fd..6cb89d8d1534 100644
--- a/website/sandbox/learnpianochords/src/State.elm
+++ b/website/sandbox/learnpianochords/src/State.elm
@@ -12,8 +12,6 @@ type Msg
     | Pause
     | SetTempo String
     | ToggleInversion Theory.ChordInversion
-    | ToggleChordType Theory.ChordType
-    | TogglePitchClass Theory.PitchClass
     | ToggleKey Theory.Key
     | DoNothing
     | SetView View
@@ -125,29 +123,6 @@ update msg model =
             , Cmd.none
             )
 
-        ToggleChordType chordType ->
-            let
-                chordTypes =
-                    if List.member chordType model.whitelistedChordTypes then
-                        List.filter ((/=) chordType) model.whitelistedChordTypes
-
-                    else
-                        chordType :: model.whitelistedChordTypes
-            in
-            ( { model
-                | whitelistedChordTypes = chordTypes
-                , whitelistedChords =
-                    Theory.allChords
-                        { start = model.firstNote
-                        , end = model.lastNote
-                        , inversions = model.whitelistedInversions
-                        , chordTypes = chordTypes
-                        , pitchClasses = model.whitelistedPitchClasses
-                        }
-              }
-            , Cmd.none
-            )
-
         ToggleInversion inversion ->
             let
                 inversions =
@@ -167,29 +142,6 @@ update msg model =
             , Cmd.none
             )
 
-        TogglePitchClass pitchClass ->
-            let
-                pitchClasses =
-                    if List.member pitchClass model.whitelistedPitchClasses then
-                        List.filter ((/=) pitchClass) model.whitelistedPitchClasses
-
-                    else
-                        pitchClass :: model.whitelistedPitchClasses
-            in
-            ( { model
-                | whitelistedPitchClasses = pitchClasses
-                , whitelistedChords =
-                    Theory.allChords
-                        { start = model.firstNote
-                        , end = model.lastNote
-                        , inversions = model.whitelistedInversions
-                        , chordTypes = model.whitelistedChordTypes
-                        , pitchClasses = pitchClasses
-                        }
-              }
-            , Cmd.none
-            )
-
         ToggleKey key ->
             let
                 keys =