-- | Checks if the current piece could be moved to a location
checkCurrentPieceCanMove :: Int -> Int -> Game Bool
checkCurrentPieceCanMove dx dy = do
  current <- gets currentPiece
  checkPieceCanMove current dx dy

-- | Checks if the a particular piece could be moved to the location
checkCurrentPieceCanMove :: Int -> Int -> Game Bool
checkCurrentPieceCanMove dx dy = do
  current <- gets currentPiece
  checkPieceCanMove current dx dy

-- | Checks if the a particular piece could be moved to the location
checkCurrentPieceCanMove dx dy = do
  current <- gets currentPiece
  checkPieceCanMove current dx dy

-- | Checks if the a particular piece could be moved to the location