summaryrefslogtreecommitdiff
path: root/Logs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-05-02 19:51:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-05-02 19:51:41 -0400
commit32de288c35b5cc728821c1c465c398f9bd8ba8d5 (patch)
treed94c65baf9d4d946173ef45ab1ff6fbbf55af3ef /Logs
parent441b138592c243beb3627c8aab5aafb12523ad05 (diff)
syntax tweaks
Although I hate to lose one of the only places I've ever used the list monad..
Diffstat (limited to 'Logs')
-rw-r--r--Logs/Remote.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Logs/Remote.hs b/Logs/Remote.hs
index 5c9d67df0..b75573a41 100644
--- a/Logs/Remote.hs
+++ b/Logs/Remote.hs
@@ -36,7 +36,7 @@ configSet u c = do
{- Map of remotes by uuid containing key/value config maps. -}
readRemoteLog :: Annex (M.Map UUID RemoteConfig)
-readRemoteLog = (simpleMap . parseLog parseConfig) <$> Annex.Branch.get remoteLog
+readRemoteLog = simpleMap . parseLog parseConfig <$> Annex.Branch.get remoteLog
parseConfig :: String -> Maybe RemoteConfig
parseConfig = Just . keyValToConfig . words
@@ -59,7 +59,7 @@ configToKeyVal m = map toword $ sort $ M.toList m
toword (k, v) = k ++ "=" ++ configEscape v
configEscape :: String -> String
-configEscape = (>>= escape)
+configEscape = concatMap escape
where
escape c
| isSpace c || c `elem` "&" = "&" ++ show (ord c) ++ ";"