Signed-off-by: Thomas Thrainer <[email protected]>
---
src/Ganeti/Curl/Multi.hs | 2 +-
src/Ganeti/HTools/Program/Hscan.hs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Ganeti/Curl/Multi.hs b/src/Ganeti/Curl/Multi.hs
index 6f08a00..d096502 100644
--- a/src/Ganeti/Curl/Multi.hs
+++ b/src/Ganeti/Curl/Multi.hs
@@ -191,7 +191,7 @@ makeEasyHandle (f, e, (opts, url)) = do
execMultiCall :: [([CurlOption], String)] -> IO [(CurlCode, String)]
execMultiCall ous = do
-- error buffers
- errorbufs <- mapM (\_ -> mallocErrorBuffer) ous
+ errorbufs <- mapM (const mallocErrorBuffer) ous
-- result buffers
outbufs <- mapM (\_ -> newIORef []) ous
-- handles
diff --git a/src/Ganeti/HTools/Program/Hscan.hs
b/src/Ganeti/HTools/Program/Hscan.hs
index 38829cd..ddc811a 100644
--- a/src/Ganeti/HTools/Program/Hscan.hs
+++ b/src/Ganeti/HTools/Program/Hscan.hs
@@ -159,4 +159,4 @@ main opts clusters = do
results <- mapM (\name -> Rapi.loadData name >>= writeData nlen name opts)
clusters
- unless (all id results) $ exitWith (ExitFailure 2)
+ unless (and results) $ exitWith (ExitFailure 2)
--
1.8.1.3
