Revision 4651c69f src/Ganeti/PyValueInstances.hs
| b/src/Ganeti/PyValueInstances.hs | ||
|---|---|---|
| 35 | 35 |
import Data.List (intercalate) |
| 36 | 36 |
import Data.Map (Map) |
| 37 | 37 |
import qualified Data.Map as Map |
| 38 |
import Data.Set (Set) |
|
| 39 |
import qualified Data.Set as Set |
|
| 38 |
import qualified Data.Set as Set (toList) |
|
| 40 | 39 |
|
| 40 |
import Ganeti.BasicTypes |
|
| 41 | 41 |
import Ganeti.THH |
| 42 | 42 |
|
| 43 | 43 |
instance PyValue Bool |
| ... | ... | |
| 59 | 59 |
"{" ++ intercalate ", " (map showPair (Map.assocs mp)) ++ "}"
|
| 60 | 60 |
where showPair (k, x) = show k ++ ":" ++ show x |
| 61 | 61 |
|
| 62 |
instance PyValue a => PyValue (Set a) where |
|
| 63 |
showValue s = showValue (Set.toList s) |
|
| 62 |
instance PyValue a => PyValue (ListSet a) where |
|
| 63 |
showValue = showValue . Set.toList . unListSet |
|
Also available in: Unified diff