Revision d9f1d93c

b/src/Ganeti/OpParams.hs
32 32
-}
33 33

  
34 34
module Ganeti.OpParams
35
  ( TagType(..)
36
  , ReplaceDisksMode(..)
35
  ( ReplaceDisksMode(..)
37 36
  , DiskIndex
38 37
  , mkDiskIndex
39 38
  , unDiskIndex
......
301 300
                  Ok n -> n
302 301
                  Bad msg -> error msg
303 302

  
304
-- ** Tags
305

  
306
-- | Data type representing what items do the tag operations apply to.
307
$(declareSADT "TagType"
308
  [ ("TagTypeInstance", 'C.tagInstance)
309
  , ("TagTypeNode",     'C.tagNode)
310
  , ("TagTypeGroup",    'C.tagNodegroup)
311
  , ("TagTypeCluster",  'C.tagCluster)
312
  ])
313
$(makeJSONInstance ''TagType)
314

  
315 303
-- ** Disks
316 304

  
317 305
-- | Replace disks type.

Also available in: Unified diff