Fix 'List' instance of 'PyValue'

[ganeti-local] / src / Ganeti / PyValueInstances.hs

diff --git a/src/Ganeti/PyValueInstances.hs b/src/Ganeti/PyValueInstances.hs
index 7111daa..890ce32 100644 (file)
--- a/src/Ganeti/PyValueInstances.hs
+++ b/src/Ganeti/PyValueInstances.hs
@@ -52,7 +52,7 @@ instance PyValue String where
   showValue = show
 
 instance PyValue a => PyValue [a] where
-  showValue xs = show (map showValue xs)
+  showValue xs = "[" ++ intercalate "," (map showValue xs) ++ "]"
 
 instance (PyValue k, PyValue a) => PyValue (Map k a) where
   showValue mp =