Revision ffc18bb2 src/Ganeti/Curl/Multi.hs
| 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 |
Also available in: Unified diff