Commit 4dd9560e authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Add splitArgs function to Base.hs.

parent c4cc0dc7
......@@ -8,7 +8,7 @@ module Base (
module Data.List,
Stage (..),
Args, arg,
joinArgs, joinArgsWithSpaces,
joinArgs, joinArgsWithSpaces, splitArgs,
filterOut
) where
......@@ -40,5 +40,8 @@ joinArgsWithSpaces = intercalateArgs " "
joinArgs :: Args -> Args
joinArgs = intercalateArgs ""
splitArgs :: Args -> Args
splitArgs = fmap (concatMap words)
filterOut :: Args -> [String] -> Args
filterOut args list = filter (`notElem` list) <$> args
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