Merge branch 'stable-2.14' into stable-2.15
[ganeti-github.git] / src / Ganeti / Config.hs
index 379df93..b902a32 100644 (file)
@@ -190,7 +190,7 @@ getMasterNodes cfg =
 
 -- | Get the list of master candidates, /not including/ the master itself.
 getMasterCandidates :: ConfigData -> [Node]
-getMasterCandidates cfg = 
+getMasterCandidates cfg =
   filter ((==) NRCandidate . getNodeRole cfg) . F.toList . configNodes $ cfg
 
 -- | Get the list of master candidates, /including/ the master.
@@ -426,7 +426,7 @@ getInstDisksFromObj cfg =
 -- | Collects a value for all DRBD disks
 collectFromDrbdDisks
   :: (Monoid a)
-  => (String -> String -> Int -> Int -> Int -> DRBDSecret -> a)
+  => (String -> String -> Int -> Int -> Int -> Private DRBDSecret -> a)
   -- ^ NodeA, NodeB, Port, MinorA, MinorB, Secret
   -> Disk -> a
 collectFromDrbdDisks f = col
@@ -438,7 +438,8 @@ collectFromDrbdDisks f = col
 
 -- | Returns the DRBD secrets of a given 'Disk'
 getDrbdSecretsForDisk :: Disk -> [DRBDSecret]
-getDrbdSecretsForDisk = collectFromDrbdDisks (\_ _ _ _ _ secret -> [secret])
+getDrbdSecretsForDisk = collectFromDrbdDisks
+                          (\_ _ _ _ _ (Private secret) -> [secret])
 
 -- | Returns the DRBD minors of a given 'Disk'
 getDrbdMinorsForDisk :: Disk -> [(Int, String)]