Commit 2bde60d8 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Don't print empty arguments.

See #204.
parent 793587bd
......@@ -98,7 +98,8 @@ fixFile file f = do
runConfigure :: FilePath -> [CmdOption] -> [String] -> Action ()
runConfigure dir opts args = do
need [dir -/- "configure"]
let note = if null args || args == [""] then "" else " (" ++ intercalate ", " args ++ ")"
let args' = filter (not . null) args
note = if null args' then "" else " (" ++ intercalate ", " args' ++ ")"
if dir == "."
then do
putBuild $ "| Run configure" ++ note ++ "..."
......
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