1 files changed, 8 insertions, 0 deletions

diff --git a/Midi.hs b/Midi.hs
index e335cd4..402f683 100644
--- a/Midi.hs
+++ b/Midi.hs
@@ -41,6 +41,14 @@ data CompleteRecording = CompleteRecording {
     _recEvents :: [RecordedEvent]
 }
 
+class Playable p where
+    playableEvents :: p -> [RecordedEvent]
+instance Playable Recording where
+    playableEvents (StartRecording _) = []
+    playableEvents (RecordingInProgress _ _ ls) = ls
+instance Playable CompleteRecording where
+    playableEvents = _recEvents
+
 instance FromRow CompleteRecording where
   fromRow = cons <$> field <*> field <*> field <*> field <*> field <*> field <*> field <*> field <*> field
     where