Revision 85bcb1de src/Ganeti/PyValueInstances.hs
| b/src/Ganeti/PyValueInstances.hs | ||
|---|---|---|
| 40 | 40 |
import Ganeti.BasicTypes |
| 41 | 41 |
import Ganeti.THH |
| 42 | 42 |
|
| 43 |
instance PyValue Bool |
|
| 44 |
instance PyValue Int |
|
| 45 |
instance PyValue Integer |
|
| 46 |
instance PyValue Double |
|
| 47 |
instance PyValue Char |
|
| 43 |
instance PyValue Bool where |
|
| 44 |
showValue = show |
|
| 45 |
|
|
| 46 |
instance PyValue Int where |
|
| 47 |
showValue = show |
|
| 48 |
|
|
| 49 |
instance PyValue Integer where |
|
| 50 |
showValue = show |
|
| 51 |
|
|
| 52 |
instance PyValue Double where |
|
| 53 |
showValue = show |
|
| 54 |
|
|
| 55 |
instance PyValue Char where |
|
| 56 |
showValue = show |
|
| 48 | 57 |
|
| 49 | 58 |
instance (PyValue a, PyValue b) => PyValue (a, b) where |
| 50 | 59 |
showValue (x, y) = "(" ++ showValue x ++ "," ++ showValue y ++ ")"
|
Also available in: Unified diff