Commit 91339343 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Remove splitArgs.

parent e3840397
...@@ -9,7 +9,7 @@ module Base ( ...@@ -9,7 +9,7 @@ module Base (
Stage (..), Stage (..),
Args, arg, args, ShowAction (..), Args, arg, args, ShowAction (..),
Condition (..), Condition (..),
joinArgs, joinArgsSpaced, splitArgs, joinArgs, joinArgsSpaced,
filterOut filterOut
) where ) where
...@@ -72,8 +72,5 @@ intercalateArgs s as = do ...@@ -72,8 +72,5 @@ intercalateArgs s as = do
as' <- as as' <- as
return [intercalate s as'] return [intercalate s as']
splitArgs :: Args -> Args
splitArgs = fmap (concatMap words)
filterOut :: Args -> [String] -> Args filterOut :: Args -> [String] -> Args
filterOut as list = filter (`notElem` list) <$> as 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