Revision f198cf91 src/Ganeti/Types.hs
| b/src/Ganeti/Types.hs | ||
|---|---|---|
| 152 | 152 |
, RpcTimeout(..) |
| 153 | 153 |
, rpcTimeoutFromRaw -- FIXME: no used anywhere |
| 154 | 154 |
, rpcTimeoutToRaw |
| 155 |
, ImportExportCompression(..) |
|
| 156 |
, importExportCompressionToRaw |
|
| 155 | 157 |
) where |
| 156 | 158 |
|
| 157 | 159 |
import Control.Monad (liftM) |
| ... | ... | |
| 834 | 836 |
, ("FourHours", 4 * 3600) -- 4 hours
|
| 835 | 837 |
, ("OneDay", 86400) -- 1 day
|
| 836 | 838 |
]) |
| 839 |
|
|
| 840 |
$(THH.declareLADT ''String "ImportExportCompression" |
|
| 841 |
[ -- No compression |
|
| 842 |
("None", "none")
|
|
| 843 |
-- gzip compression |
|
| 844 |
, ("GZip", "gzip")
|
|
| 845 |
]) |
|
| 846 |
$(THH.makeJSONInstance ''ImportExportCompression) |
|
| 847 |
|
|
| 848 |
instance THH.PyValue ImportExportCompression where |
|
| 849 |
showValue = THH.showValue . importExportCompressionToRaw |
|
Also available in: Unified diff