Revision 7dc27988 src/Ganeti/DataCollectors/Drbd.hs

b/src/Ganeti/DataCollectors/Drbd.hs
90 90 
getPairingInfo :: Maybe String -> IO (BT.Result [DrbdInstMinor])
91 91 
getPairingInfo Nothing = do
92 92 
  curNode <- getHostName
93 
  client <- getConfdClient
93 
  client <- getConfdClient Nothing Nothing
94 94 
  reply <- query client ReqNodeDrbd $ PlainQuery curNode
95 95 
  return $
96 96 
    case fmap (J.readJSONs . confdReplyAnswer) reply of

Also available in: Unified diff