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