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