If information about instances is not available, just log the error and continue without it.
Signed-off-by: Michele Tartara <[email protected]> --- src/Ganeti/DataCollectors/Drbd.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Ganeti/DataCollectors/Drbd.hs b/src/Ganeti/DataCollectors/Drbd.hs index 944808c..dc5743a 100644 --- a/src/Ganeti/DataCollectors/Drbd.hs +++ b/src/Ganeti/DataCollectors/Drbd.hs @@ -195,7 +195,7 @@ buildJsonReport statusFile pairingFile = do ((E.try $ readFile statusFile) :: IO (Either IOError String)) >>= exitIfBad "reading from file" . either (BT.Bad . show) BT.Ok pairingResult <- getPairingInfo pairingFile - pairing <- exitIfBad "Can't get pairing info" pairingResult + pairing <- logWarningIfBad "Can't get pairing info" [] pairingResult drbdData <- case A.parse (drbdStatusParser pairing) $ pack contents of A.Fail unparsedText contexts errorMessage -> exitErr $ -- 1.7.10.4
