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