Merge branch 'stable-2.14' into stable-2.15
[ganeti-github.git] / src / Ganeti / Objects / Disk.hs
index 181bf51..c9f498d 100644 (file)
@@ -37,6 +37,7 @@ SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 module Ganeti.Objects.Disk where
 
 import Control.Applicative ((<*>), (<$>))
+import qualified Data.ByteString.UTF8 as UTF8
 import Data.Char (isAsciiLower, isAsciiUpper, isDigit)
 import Data.List (isPrefixOf, isInfixOf)
 import Language.Haskell.TH.Syntax
@@ -257,7 +258,7 @@ $(buildObjectWithForthcoming "Disk" "disk" $
   ++ timeStampFields)
 
 instance UuidObject Disk where
-  uuidOf = diskUuid
+  uuidOf = UTF8.toString . diskUuid
 
 instance ForthcomingObject Disk where
   isForthcoming = diskForthcoming