Merge branch 'stable-2.14' into stable-2.15
[ganeti-github.git] / src / Ganeti / Objects.hs
index 0fa59a8..423f28e 100644 (file)
@@ -108,6 +108,7 @@ module Ganeti.Objects
 import Control.Applicative
 import Control.Arrow (first)
 import Control.Monad.State
+import qualified Data.ByteString.UTF8 as UTF8
 import Data.List (foldl', intercalate)
 import Data.Maybe
 import qualified Data.Map as Map
@@ -268,7 +269,7 @@ instance TagsObject Network where
   tagsOf = networkTags
 
 instance UuidObject Network where
-  uuidOf = networkUuid
+  uuidOf = UTF8.toString . networkUuid
 
 instance TimeStampObject Network where
   cTimeOf = networkCtime
@@ -427,7 +428,7 @@ instance TimeStampObject Node where
   mTimeOf = nodeMtime
 
 instance UuidObject Node where
-  uuidOf = nodeUuid
+  uuidOf = UTF8.toString . nodeUuid
 
 instance SerialNoObject Node where
   serialOf = nodeSerial
@@ -466,7 +467,7 @@ instance TimeStampObject NodeGroup where
   mTimeOf = groupMtime
 
 instance UuidObject NodeGroup where
-  uuidOf = groupUuid
+  uuidOf = UTF8.toString . groupUuid
 
 instance SerialNoObject NodeGroup where
   serialOf = groupSerial
@@ -547,7 +548,7 @@ $(buildObject "FilterRule" "fr" $
   ++ uuidFields)
 
 instance UuidObject FilterRule where
-  uuidOf = frUuid
+  uuidOf = UTF8.toString . frUuid
 
 
 -- | Order in which filter rules are evaluated, according to
@@ -688,7 +689,7 @@ instance TimeStampObject Cluster where
   mTimeOf = clusterMtime
 
 instance UuidObject Cluster where
-  uuidOf = clusterUuid
+  uuidOf = UTF8.toString . clusterUuid
 
 instance SerialNoObject Cluster where
   serialOf = clusterSerial