diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-05-02 19:51:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-05-02 19:51:41 -0400 |
| commit | 32de288c35b5cc728821c1c465c398f9bd8ba8d5 (patch) | |
| tree | d94c65baf9d4d946173ef45ab1ff6fbbf55af3ef | |
| parent | 441b138592c243beb3627c8aab5aafb12523ad05 (diff) | |
syntax tweaks
Although I hate to lose one of the only places I've ever used the list monad..
| -rw-r--r-- | Logs/Remote.hs | 4 |
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) ++ ";" |