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