Revision b1633ed9 src/Ganeti/DataCollectors/Drbd.hs

b/src/Ganeti/DataCollectors/Drbd.hs
195 195 
    ((E.try $ readFile statusFile) :: IO (Either IOError String)) >>=
196 196 
      exitIfBad "reading from file" . either (BT.Bad . show) BT.Ok
197 197 
  pairingResult <- getPairingInfo pairingFile
198 
  pairing <- exitIfBad "Can't get pairing info" pairingResult
198 
  pairing <- logWarningIfBad "Can't get pairing info" [] pairingResult
199 199 
  drbdData <-
200 200 
    case A.parse (drbdStatusParser pairing) $ pack contents of
201 201 
      A.Fail unparsedText contexts errorMessage -> exitErr $

Also available in: Unified diff