-- |
-- Just the properties associated with specific games.
extraProperties :: GameType -> PropertyType -> [String]
extraProperties Go            GameInfo = ["HA", "KM"]
extraProperties :: GameType -> PropertyType -> [String]
extraProperties Go            GameInfo = ["HA", "KM"]
extraProperties Go            GameInfo = ["HA", "KM"]