Merge branch 'stable-2.14' into stable-2.15
[ganeti-github.git] / src / Ganeti / Objects / Disk.hs
index 0a2e6db..c9f498d 100644 (file)
@@ -125,7 +125,7 @@ instance J.JSON LogicalVolume where
 -- correspondence between the 'DiskLogicalId' constructors and 'DiskTemplate'.
 data DiskLogicalId
   = LIDPlain LogicalVolume  -- ^ Volume group, logical volume
-  | LIDDrbd8 String String Int Int Int DRBDSecret
+  | LIDDrbd8 String String Int Int Int (Private DRBDSecret)
   -- ^ NodeA, NodeB, Port, MinorA, MinorB, Secret
   | LIDFile FileDriver String -- ^ Driver, path
   | LIDSharedFile FileDriver String -- ^ Driver, path