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