will-holdsworth/comp30002-project-2
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: implement gamestate type

Browse source
This commit is contained in:
wi11-holdsworth 2025-09-24 14:54:29 +10:00
parent d3aa836a8f
commit c8079cb914
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Proj2.hs
View file

@ -10,10 +10,10 @@ module Proj2
) )
where where
type GameState = ()
import Data.List import Data.List
import Data.Set qualified as S import Data.Set qualified as S
type GameState = [[Pitch]]
data Note = A | B | C | D | E | F | G data Note = A | B | C | D | E | F | G
deriving (Eq, Show, Ord) deriving (Eq, Show, Ord)