------------------------------------------------------------------------------
kingCastleMove :: Colour -> Castle -> (Square, Square)
kingCastleMove White Long  =
  (toSquare eFile firstRank, toSquare cFile firstRank)
kingCastleMove :: Colour -> Castle -> (Square, Square)
kingCastleMove White Long  =
  (toSquare eFile firstRank, toSquare cFile firstRank)
kingCastleMove White Long  =
  (toSquare eFile firstRank, toSquare cFile firstRank)