1 files changed, 15 insertions, 0 deletions
diff --git a/website/sandbox/learnpianochords/src/ChordInspector.elm b/website/sandbox/learnpianochords/src/ChordInspector.elm
new file mode 100644
index 000000000000..f43b534eb013
--- /dev/null
+++ b/website/sandbox/learnpianochords/src/ChordInspector.elm
@@ -0,0 +1,15 @@
+module ChordInspector exposing (render)
+
+import Html exposing (..)
+import NoteInspector
+import Theory
+
+
+render : Theory.Chord -> Html a
+render chord =
+    case Theory.notesForChord chord of
+        Nothing ->
+            p [] [ text "Cannot retrieve the notes for the chord." ]
+
+        Just notes ->
+            NoteInspector.render notes