------------------------------------------------------------------------------
pawnDiscoveredChecks :: Board -> [ Move ]
pawnDiscoveredChecks b =
  pawnMoves b (\f _ -> fromSquare f .&. discoverer b /= mempty)
pawnDiscoveredChecks :: Board -> [ Move ]
pawnDiscoveredChecks b =
  pawnMoves b (\f _ -> fromSquare f .&. discoverer b /= mempty)
pawnDiscoveredChecks b =
  pawnMoves b (\f _ -> fromSquare f .&. discoverer b /= mempty)