mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

structural decomposition in partitionParams

Browse source 
Avoids partial !!
This commit is contained in:
Joey Hess 2012-10-16 01:22:09 -04:00
parent 7d51ceb0ff
commit 517aa13913
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
GitAnnexShell.hs
View file

@ -104,12 +104,10 @@ external params = do
- rsync and not be useful. - rsync and not be useful.
-} -}
partitionParams :: [String] -> ([String], [String]) partitionParams :: [String] -> ([String], [String])
partitionParams params partitionParams ps = case segment (== "--") ps of
| null segments = ([], []) params:fieldparams:_ -> (params, fieldparams)
| length segments < 2 = (segments !! 0, []) [params] -> (params, [])
| otherwise = (segments !! 0, segments !! 1) _ -> ([], [])
where
segments = segment (== "--") params
parseFields :: [String] -> [(String, String)] parseFields :: [String] -> [(String, String)]
parseFields = map (separate (== '=')) parseFields = map (separate (== '='))