Revision b6e31235
b/src/Ganeti/OpCodes.hs | ||
---|---|---|
78 | 78 |
|
79 | 79 |
instance PyValue a => PyValue (NonNegative a) where |
80 | 80 |
showValue = showValue . fromNonNegative |
81 |
|
|
81 |
|
|
82 | 82 |
instance PyValue a => PyValue (NonEmpty a) where |
83 | 83 |
showValue = showValue . fromNonEmpty |
84 |
|
|
84 |
|
|
85 | 85 |
-- FIXME: should use the 'toRaw' function instead of being harcoded or |
86 | 86 |
-- perhaps use something similar to the NonNegative type instead of |
87 | 87 |
-- using the declareSADT |
... | ... | |
107 | 107 |
showValue (JSObject obj) = showValue obj |
108 | 108 |
showValue x = show x |
109 | 109 |
|
110 |
type JobIdListOnly = [(Bool, Either String JobId)] |
|
110 |
type JobIdListOnly = Map String [(Bool, Either String JobId)]
|
|
111 | 111 |
|
112 | 112 |
type InstanceMultiAllocResponse = |
113 | 113 |
([(Bool, Either String JobId)], NonEmptyString) |
Also available in: Unified diff