+
+-- | The file driver type.
+$(THH.declareSADT "FileDriver"
+ [ ("FileLoop", 'C.fdLoop)
+ , ("FileBlktap", 'C.fdBlktap)
+ ])
+$(THH.makeJSONInstance ''FileDriver)
+
+-- | The instance create mode.
+$(THH.declareSADT "InstCreateMode"
+ [ ("InstCreate", 'C.instanceCreate)
+ , ("InstImport", 'C.instanceImport)
+ , ("InstRemoteImport", 'C.instanceRemoteImport)
+ ])
+$(THH.makeJSONInstance ''InstCreateMode)
+
+-- | Reboot type.
+$(THH.declareSADT "RebootType"
+ [ ("RebootSoft", 'C.instanceRebootSoft)
+ , ("RebootHard", 'C.instanceRebootHard)
+ , ("RebootFull", 'C.instanceRebootFull)
+ ])
+$(THH.makeJSONInstance ''RebootType)