Revision 9569d877 src/Ganeti/Types.hs
b/src/Ganeti/Types.hs | ||
---|---|---|
152 | 152 |
, RpcTimeout(..) |
153 | 153 |
, rpcTimeoutFromRaw -- FIXME: no used anywhere |
154 | 154 |
, rpcTimeoutToRaw |
155 |
, HotplugTarget(..) |
|
156 |
, hotplugTargetToRaw |
|
157 |
, HotplugAction(..) |
|
158 |
, hotplugActionToRaw |
|
155 | 159 |
) where |
156 | 160 |
|
157 | 161 |
import Control.Monad (liftM) |
... | ... | |
830 | 834 |
, ("FourHours", 4 * 3600) -- 4 hours |
831 | 835 |
, ("OneDay", 86400) -- 1 day |
832 | 836 |
]) |
837 |
|
|
838 |
-- | Hotplug action. |
|
839 |
|
|
840 |
$(THH.declareLADT ''String "HotplugAction" |
|
841 |
[ ("HAAdd", "hotadd") |
|
842 |
, ("HARemove", "hotremove") |
|
843 |
, ("HAMod", "hotmod") |
|
844 |
]) |
|
845 |
$(THH.makeJSONInstance ''HotplugAction) |
|
846 |
|
|
847 |
-- | Hotplug Device Target. |
|
848 |
|
|
849 |
$(THH.declareLADT ''String "HotplugTarget" |
|
850 |
[ ("HTDisk", "hotdisk") |
|
851 |
, ("HTNic", "hotnic") |
|
852 |
]) |
|
853 |
$(THH.makeJSONInstance ''HotplugTarget) |
Also available in: Unified diff