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