checkCastleBB White Short =
  mconcat [ fromSquare sq
          | sq <- [(toSquare eFile firstRank) .. (toSquare gFile firstRank)]
          ]
checkCastleBB White Short =
  mconcat [ fromSquare sq
          | sq <- [(toSquare eFile firstRank) .. (toSquare gFile firstRank)]
          ]
checkCastleBB White Short =
  mconcat [ fromSquare sq
          | sq <- [(toSquare eFile firstRank) .. (toSquare gFile firstRank)]
          ]