Commit 9a24f387 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Ensure that intercalateArgs _ mempty = mempty.

parent 1a7b657a
......@@ -70,7 +70,9 @@ joinArgsSpaced = collect (\x y -> intercalateArgs " " $ x <> y) mempty
intercalateArgs :: String -> Args -> Args
intercalateArgs s as = do
as' <- as
return [intercalate s as']
case as' of
[] -> mempty
otherwise -> return [intercalate s as']
filterOut :: Args -> [String] -> Args
filterOut as list = filter (`notElem` list) <$> as
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