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