Revision f5d84060 src/Ganeti/DataCollectors/Lv.hs

b/src/Ganeti/DataCollectors/Lv.hs
97 97 
-- | This function computes the JSON representation of the LV status
98 98 
buildJsonReport :: Maybe FilePath -> IO J.JSValue
99 99 
buildJsonReport inputFile = do
100 
  let (cmd:params) = lvCommand
100 
  let cmd = lvCommand
101 
      params = lvParams
101 102 
      fromLvs =
102 103 
        ((E.try $ readProcess cmd params "") :: IO (Either IOError String)) >>=
103 104 
          exitIfBad "running command" . either (BT.Bad . show) BT.Ok

Also available in: Unified diff