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