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

refactor

Browse source
This commit is contained in:
Joey Hess 2011-12-15 13:05:47 -04:00
parent 09cd042775
commit a8643ca44c
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Git/Config.hs
View file

@ -58,9 +58,9 @@ parse :: String -> M.Map String String
parse [] = M.empty
parse s
-- --list output will have an = in the first line
| '=' `elem` head ls = M.fromList $ map (separate (== '=')) ls
| '=' `elem` head ls = sep '=' ls
-- --null --list output separates keys from values with newlines
| otherwise = M.fromList $ map (separate (== '\n')) $ split "\0" s
| otherwise = sep '\n' $ split "\0" s
where
pair = separate (== '=')
ls = lines s
sep c = M.fromList . map (separate (== c))