skulk/numbersquare
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix makeMove

Browse source
This commit is contained in:
Sidharth Kulkarni 2026-05-09 20:16:48 -07:00
parent c49b5b2540
commit 57579fa5e4
Signed by: skulk
SSH key fingerprint: SHA256:Jby+S9d1WmwqnXIrngHgccYNHz+cYquxN1zm3ym3Kbg
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/Game.hs
View file

@ -10,7 +10,11 @@ makeMove :: (GameMode mode) => PlayerIndex -> BoardAction -> GameState mode -> G
makeMove (MkPlayerIndex idx) (SelectSquare topLeft bottomRight) state@MkGameState{board} = makeMove (MkPlayerIndex idx) (SelectSquare topLeft bottomRight) state@MkGameState{board} =
let tiles = select topLeft bottomRight board let tiles = select topLeft bottomRight board
gMode = gameMode board gMode = gameMode board
in if check gMode tiles transform =
then if check gMode tiles
over (#players % (ix idx) % #score) (+ 1) state -- add one to player score
else state -- TODO: add the proper score here
then over (#players % (ix idx) % #score) (+ 1)
-- invalid move, do nothing
else id
in transform state