feat: implement gamestate type

This commit is contained in:
wi11-holdsworth 2025-09-24 14:54:29 +10:00
parent d3aa836a8f
commit c8079cb914

View file

@ -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)