capturedPiece' :: PseudoLegalMove -> Maybe PieceType
capturedPiece' (PseudoLegalMove m) = m^.capturedPiece
capturedPiece' :: PseudoLegalMove -> Maybe PieceType
capturedPiece' (PseudoLegalMove m) = m^.capturedPiece
capturedPiece' (PseudoLegalMove m) = m^.capturedPiece