diff --git a/Proj2.hs b/Proj2.hs
index 6a23ce6..a1e6774 100644
--- a/Proj2.hs
+++ b/Proj2.hs
@@ -10,10 +10,10 @@ module Proj2
   )
 where
 
-type GameState = ()
 import Data.List
 import Data.Set qualified as S
 
+type GameState = [[Pitch]]
 
 data Note = A | B | C | D | E | F | G
   deriving (Eq, Show, Ord)