From a9b265fabce0293070e26efe920eb90ed1680a8e Mon Sep 17 00:00:00 2001 From: Sidharth Kulkarni Date: Sun, 3 May 2026 14:10:20 -0700 Subject: [PATCH] flip some params around --- src/Types/GameBoard.hs | 12 ++++++------ test/Spec.hs | 4 ++-- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/Types/GameBoard.hs b/src/Types/GameBoard.hs index 6f8b23d..f6516bf 100644 --- a/src/Types/GameBoard.hs +++ b/src/Types/GameBoard.hs @@ -20,15 +20,15 @@ data GameBoard mode = MkGameBoard , gameMode :: mode } -clear :: (GameMode mode) => GameBoard mode -> BoardPosition -> BoardPosition -> Bool clear = undefined +clear :: (GameMode mode) => BoardPosition -> BoardPosition -> GameBoard mode -> GameBoard mode -selectCheck :: (GameMode mode) => GameBoard mode -> BoardPosition -> BoardPosition -> Bool -selectCheck board@MkGameBoard{gameMode} topLeft bottomRight = - check gameMode (select board topLeft bottomRight) +selectCheck :: (GameMode mode) => BoardPosition -> BoardPosition -> GameBoard mode -> Bool +selectCheck topLeft bottomRight board@MkGameBoard{gameMode} = + check gameMode (select topLeft bottomRight board) -select :: (GameMode mode) => GameBoard mode -> BoardPosition -> BoardPosition -> [Tile mode] -select MkGameBoard{board} topLeft bottomRight = +select :: (GameMode mode) => BoardPosition -> BoardPosition -> GameBoard mode -> [Tile mode] +select topLeft bottomRight MkGameBoard{board} = mapMaybe (board !) (range (topLeft, bottomRight)) -- TODO: rewrite this with monadic RNG diff --git a/test/Spec.hs b/test/Spec.hs index ec57706..2cbed54 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -25,5 +25,5 @@ spec = describe "gameboard" do displayText gameBoard `shouldBe` "1 2 \n3 4 \n" it "validates a move" do - selectCheck gameBoard (0, 0) (1, 1) `shouldBe` True - selectCheck gameBoard (0, 0) (0, 1) `shouldBe` False + selectCheck (0, 0) (1, 1) gameBoard `shouldBe` True + selectCheck (0, 0) (0, 1) gameBoard `shouldBe` False