let's use words and unwords rather than split and intercalate " "

This commit is contained in:
Joey Hess 2013-03-30 18:55:22 -04:00
parent 5ed67562f6
commit 553e9dc736
3 changed files with 3 additions and 3 deletions

View file

@ -89,7 +89,7 @@ builtin cmd dir params = do
checkDirectory $ Just dir
let (params', fieldparams, opts) = partitionParams params
fields = filter checkField $ parseFields fieldparams
cmds' = map (newcmd $ intercalate " " opts) cmds
cmds' = map (newcmd $ unwords opts) cmds
dispatch False (cmd : params') cmds' options fields header $
Git.Construct.repoAbsPath dir >>= Git.Construct.fromAbsPath
where