Merge branch 'stable-2.12' into stable-2.13
[ganeti-github.git] / test / hs / Test / Ganeti / Objects.hs
index 6edab31..06f15c4 100644 (file)
@@ -683,7 +683,8 @@ caseIncludeLogicalIdDrbd =
       time = TOD 0 0
       d =
         Disk
-          (LIDDrbd8 "node1.example.com" "node2.example.com" 2000 1 5 "secret")
+          (LIDDrbd8 "node1.example.com" "node2.example.com" 2000 1 5
+           (Private "secret"))
           [ Disk (mkLIDPlain "onevg" "onelv") [] "disk1" 1000 DiskRdWr Nothing
               Nothing Nothing "145145-asdf-sdf2-2134-asfd-534g2x" 0 time time
           , Disk (mkLIDPlain vg_name lv_name) [] "disk2" 1000 DiskRdWr Nothing