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

releasing version 0.20110516

Browse source
This commit is contained in:
Joey Hess 2011-05-16 15:01:05 -04:00
parent 760cde28b6
commit 3ab15b9f4f
3 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote.hs
View file

@ -188,7 +188,7 @@ configToKeyVal m = map toword $ sort $ M.toList m
toword (k, v) = k ++ "=" ++ configEscape v
configEscape :: String -> String
configEscape = concat . (map escape)
configEscape = (>>= escape)
where
escape c
| isSpace c || c `elem` "&" = "&" ++ show (ord c) ++ ";"