diff options
author | 2011-05-16 14:49:28 -0400 | |
---|---|---|
committer | 2011-05-16 14:49:28 -0400 | |
commit | 760cde28b67c14e0ad68e8649c0abe0544c44947 (patch) | |
tree | 6d26b4783410f317f18200f66c9031a8d63afba7 /Utility.hs | |
parent | 57428c356ea81ea13193ac5dfc32d9a824ed4d65 (diff) |
more pointless monadic golfing
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) |