Commit ffc18bb2 authored by Thomas Thrainer's avatar Thomas Thrainer Committed by Helga Velroyen
Browse files

Fix warnings hlint 1.8.43 complained about



These lines are ok according to previous versions of hlint but trigger
an error with version 1.8.43.
Signed-off-by: default avatarThomas Thrainer <thomasth@google.com>
Reviewed-by: default avatarHelga Velroyen <helgav@google.com>
parent c396af83
......@@ -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
......
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment