Revision 9d74cb04 htools/Ganeti/Luxi.hs

b/htools/Ganeti/Luxi.hs
68 68 
       [ ("names",  [t| [String] |], [| id |])
69 69 
       , ("fields", [t| [String] |], [| id |])
70 70 
       , ("lock",   [t| Bool     |], [| id |])
71 
       ],
72 
       [| J.showJSON |])
71 
       ])
73 72 
    , ("QueryGroups",
74 73 
       [ ("names",  [t| [String] |], [| id |])
75 74 
       , ("fields", [t| [String] |], [| id |])
76 75 
       , ("lock",   [t| Bool     |], [| id |])
77 
       ],
78 
       [| J.showJSON |])
76 
       ])
79 77 
    , ("QueryInstances",
80 78 
       [ ("names",  [t| [String] |], [| id |])
81 79 
       , ("fields", [t| [String] |], [| id |])
82 80 
       , ("lock",   [t| Bool     |], [| id |])
83 
       ],
84 
       [| J.showJSON |])
81 
       ])
85 82 
    , ("QueryJobs",
86 83 
       [ ("ids",    [t| [Int]    |], [| map show |])
87 84 
       , ("fields", [t| [String] |], [| id |])
88 
       ],
89 
       [| J.showJSON |])
85 
       ])
90 86 
    , ("QueryExports",
91 87 
       [ ("nodes", [t| [String] |], [| id |])
92 88 
       , ("lock",  [t| Bool     |], [| id |])
93 
       ],
94 
       [| J.showJSON |])
89 
       ])
95 90 
    , ("QueryConfigValues",
96 
       [ ("fields", [t| [String] |], [| id |]) ],
97 
       [| J.showJSON |])
98 
    , ("QueryClusterInfo",
99 
       [],
100 
       [| J.showJSON |])
91 
       [ ("fields", [t| [String] |], [| id |]) ])
92 
    , ("QueryClusterInfo", [])
101 93 
    , ("QueryTags",
102 94 
       [ ("kind", [t| String |], [| id |])
103 95 
       , ("name", [t| String |], [| id |])
104 
       ],
105 
       [| J.showJSON |])
96 
       ])
106 97 
    , ("SubmitJob",
107 
       [ ("job", [t| [OpCode] |], [| id |]) ],
108 
       [| J.showJSON |])
98 
       [ ("job", [t| [OpCode] |], [| id |]) ])
109 99 
    , ("SubmitManyJobs",
110 
       [ ("ops", [t| [[OpCode]] |], [| id |]) ],
111 
       [| J.showJSON |])
100 
       [ ("ops", [t| [[OpCode]] |], [| id |]) ])
112 101 
    , ("WaitForJobChange",
113 
       [ ("job",      [t| Int     |], [| J.showJSON |])
114 
       , ("fields",   [t| [String]|], [| J.showJSON |])
115 
       , ("prev_job", [t| JSValue |], [| J.showJSON |])
116 
       , ("prev_log", [t| JSValue |], [| J.showJSON |])
117 
       , ("tmout",    [t| Int     |], [| J.showJSON |])
118 
       ],
119 
       [| \(j, f, pj, pl, t) -> JSArray [j, f, pj, pl, t] |])
102 
       [ ("job",      [t| Int     |], [| id |])
103 
       , ("fields",   [t| [String]|], [| id |])
104 
       , ("prev_job", [t| JSValue |], [| id |])
105 
       , ("prev_log", [t| JSValue |], [| id |])
106 
       , ("tmout",    [t| Int     |], [| id |])
107 
       ])
120 108 
    , ("ArchiveJob",
121 
       [ ("job", [t| Int |], [| show |]) ],
122 
       [| J.showJSON |])
109 
       [ ("job", [t| Int |], [| show |]) ])
123 110 
    , ("AutoArchiveJobs",
124 111 
       [ ("age",   [t| Int |], [| id |])
125 112 
       , ("tmout", [t| Int |], [| id |])
126 
       ],
127 
       [| J.showJSON |])
113 
       ])
128 114 
    , ("CancelJob",
129 
       [("job", [t| Int |], [| show |]) ],
130 
       [| J.showJSON |])
115 
       [("job", [t| Int |], [| show |]) ])
131 116 
    , ("SetDrainFlag",
132 
       [ ("flag", [t| Bool |], [| id |]) ],
133 
       [| J.showJSON |])
117 
       [ ("flag", [t| Bool |], [| id |]) ])
134 118 
    , ("SetWatcherPause",
135 
       [ ("duration", [t| Double |], [| (: []) |]) ],
136 
       [| J.showJSON |])
119 
       [ ("duration", [t| Double |], [| (: []) |]) ])
137 120 
  ])
138 121 

  		





  139
  122
  
    
-- | The serialisation of LuxiOps into strings in messages.


  		












Also available in:
  Unified diff