Commit d9f1d93c authored by Jose A. Lopes's avatar Jose A. Lopes

Remove TagType

By removing 'TagObject' in the previous patch, 'TagType' also became
useless, since it was only used by 'TagObject'. This patch removes 'TagType'.
Signed-off-by: default avatarJose A. Lopes <jabolopes@google.com>
Reviewed-by: default avatarGuido Trotter <ultrotter@google.com>
parent de36f091
......@@ -32,8 +32,7 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-}
module Ganeti.OpParams
( TagType(..)
, ReplaceDisksMode(..)
( ReplaceDisksMode(..)
, DiskIndex
, mkDiskIndex
, unDiskIndex
......@@ -301,17 +300,6 @@ forceNonNeg i = case mkNonNegative i of
Ok n -> n
Bad msg -> error msg
-- ** Tags
-- | Data type representing what items do the tag operations apply to.
$(declareSADT "TagType"
[ ("TagTypeInstance", 'C.tagInstance)
, ("TagTypeNode", 'C.tagNode)
, ("TagTypeGroup", 'C.tagNodegroup)
, ("TagTypeCluster", 'C.tagCluster)
])
$(makeJSONInstance ''TagType)
-- ** Disks
-- | Replace disks type.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment