Revision eb62691c src/Ganeti/DataCollectors/Drbd.hs
b/src/Ganeti/DataCollectors/Drbd.hs | ||
---|---|---|
76 | 76 |
((E.try $ readFile proc_drbd) :: IO (Either IOError String)) >>= |
77 | 77 |
exitIfBad "reading from file" . either (BT.Bad . show) BT.Ok |
78 | 78 |
output <- |
79 |
case A.parse drbdStatusParser $ pack contents of
|
|
79 |
case A.parse (drbdStatusParser []) $ pack contents of
|
|
80 | 80 |
A.Fail unparsedText contexts errorMessage -> exitErr $ |
81 | 81 |
show (Prelude.take defaultCharNum $ unpack unparsedText) ++ "\n" |
82 | 82 |
++ show contexts ++ "\n" ++ errorMessage |
Also available in: Unified diff