currentPieceShouldBeSet :: Game Bool
currentPieceShouldBeSet = fmap not $ checkCurrentPieceCanMove 0 1
currentPieceShouldBeSet :: Game Bool
currentPieceShouldBeSet = fmap not $ checkCurrentPieceCanMove 0 1
currentPieceShouldBeSet = fmap not $ checkCurrentPieceCanMove 0 1