Revision b1633ed9

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