Revision ffc18bb2

b/src/Ganeti/Curl/Multi.hs
191 191
execMultiCall :: [([CurlOption], String)] -> IO [(CurlCode, String)]
192 192
execMultiCall ous = do
193 193
  -- error buffers
194
  errorbufs <- mapM (\_ -> mallocErrorBuffer) ous
194
  errorbufs <- mapM (const mallocErrorBuffer) ous
195 195
  -- result buffers
196 196
  outbufs <- mapM (\_ -> newIORef []) ous
197 197
  -- handles
b/src/Ganeti/HTools/Program/Hscan.hs
159 159

  
160 160
  results <- mapM (\name -> Rapi.loadData name >>= writeData nlen name opts)
161 161
             clusters
162
  unless (all id results) $ exitWith (ExitFailure 2)
162
  unless (and results) $ exitWith (ExitFailure 2)

Also available in: Unified diff