Revision 518023a9 htools/Ganeti/Qlang.hs

b/htools/Ganeti/Qlang.hs
294 294
data QueryFields = QueryFields ItemType Fields
295 295

  
296 296
-- | Query2 Fields result.
297
data QueryFieldsResult = QueryFieldsResult [ FieldDefinition ]
297
$(buildObject "QueryFieldsResult" "qfieldres"
298
  [ simpleField "fields" [t| [FieldDefinition ] |]
299
  ])

Also available in: Unified diff