Revision 3022ea9f

b/src/Ganeti/Objects.hs
669 669
-- * Cluster definitions
670 670
$(buildObject "Cluster" "cluster" $
671 671
  [ simpleField "rsahostkeypub"           [t| String           |]
672
  , simpleField "dsahostkeypub"           [t| String           |]
672
  , optionalField $
673
    simpleField "dsahostkeypub"           [t| String           |]
673 674
  , simpleField "highest_used_port"       [t| Int              |]
674 675
  , simpleField "tcpudp_port_pool"        [t| [Int]            |]
675 676
  , simpleField "mac_prefix"              [t| String           |]

Also available in: Unified diff