------------------------------------------------------------------------------
pawnCaptures :: Board -> [ Move ]
pawnCaptures b =
  pawnMoves b (\_ t -> (fromSquare t .&. opponentsPieces b) /= mempty)
pawnCaptures :: Board -> [ Move ]
pawnCaptures b =
  pawnMoves b (\_ t -> (fromSquare t .&. opponentsPieces b) /= mempty)
pawnCaptures b =
  pawnMoves b (\_ t -> (fromSquare t .&. opponentsPieces b) /= mempty)