vacancyCastleBB Black Long  =
  mconcat [ fromSquare sq
          | sq <- [(toSquare bFile eighthRank) .. (toSquare dFile eighthRank)]
          ]
vacancyCastleBB Black Long  =
  mconcat [ fromSquare sq
          | sq <- [(toSquare bFile eighthRank) .. (toSquare dFile eighthRank)]
          ]
vacancyCastleBB Black Long  =
  mconcat [ fromSquare sq
          | sq <- [(toSquare bFile eighthRank) .. (toSquare dFile eighthRank)]
          ]