Merge branch 'stable-2.14' into stable-2.15
[ganeti-github.git] / test / hs / Test / Ganeti / Objects.hs
index e2a17a1..71a1d3c 100644 (file)
@@ -750,7 +750,8 @@ caseIncludeLogicalIdDrbd =
       time = TOD 0 0
       d = RealDisk $
         RealDiskData
-          (LIDDrbd8 "node1.example.com" "node2.example.com" 2000 1 5 "secret")
+          (LIDDrbd8 "node1.example.com" "node2.example.com" 2000 1 5
+           (Private "secret"))
           [ RealDisk $ RealDiskData (mkLIDPlain "onevg" "onelv") []
               ["node1.example.com", "node2.example.com"] "disk1" 1000 DiskRdWr
               Nothing Nothing Nothing "145145-asdf-sdf2-2134-asfd-534g2x"