Revision 795d035d src/Ganeti/Luxi.hs

b/src/Ganeti/Luxi.hs
119 119 
     , simpleField "fields" [t| [String] |]
120 120 
     , simpleField "lock"   [t| Bool     |]
121 121 
     ])
122 
  , (luxiReqQueryNetworks,
123 
     [ simpleField "names"  [t| [String] |]
124 
     , simpleField "fields" [t| [String] |]
125 
     , simpleField "lock"   [t| Bool     |]
126 
     ])
122 127 
  , (luxiReqQueryInstances,
123 128 
     [ simpleField "names"  [t| [String] |]
124 129 
     , simpleField "fields" [t| [String] |]
......
341 346 
              return $ QueryGroups names fields locking
342 347 
    ReqQueryClusterInfo ->
343 348 
              return QueryClusterInfo
349 
    ReqQueryNetworks -> do
350 
              (names, fields, locking) <- fromJVal args
351 
              return $ QueryNetworks names fields locking
344 352 
    ReqQuery -> do
345 353 
              (what, fields, qfilter) <- fromJVal args
346 354 
              return $ Query what fields qfilter

Also available in: Unified diff