diff options
Diffstat (limited to 'Utility.hs')
| -rw-r--r-- | Utility.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility.hs b/Utility.hs index 44c8cdd65..6dd7d329c 100644 --- a/Utility.hs +++ b/Utility.hs @@ -59,7 +59,7 @@ data CommandParam = Params String | Param String | File FilePath {- Used to pass a list of CommandParams to a function that runs - a command and expects Strings. -} toCommand :: [CommandParam] -> [String] -toCommand l = concat $ map unwrap l +toCommand = (>>= unwrap) where unwrap (Param s) = [s] unwrap (Params s) = filter (not . null) (split " " s) |