Revision 6a062ff9 htools/Ganeti/HTools/ExtLoader.hs

b/htools/Ganeti/HTools/ExtLoader.hs
116 116 
      (case ldresult of
117 117 
         Ok x -> return x
118 118 
         Bad s -> do
119 
           hPrintf stderr "Error: failed to load data. Details:\n%s\n" s
120 
               :: IO ()
119 
           hPrintf stderr
120 
             "Error: failed to load data, aborting. Details:\n%s\n" s:: IO ()
121 121 
           exitWith $ ExitFailure 1
122 122 
      )
123 123 
  let (fix_msgs, nl) = checkData (cdNodes cdata) (cdInstances cdata)

Also available in: Unified diff