diff options
author | Joey Hess <joey@kitenet.net> | 2011-09-30 02:51:05 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-09-30 02:51:05 -0400 |
commit | 03e54680ff1432915e2e02f87c95a9126af5a420 (patch) | |
tree | 74b73a9a16b7586732fa2b6994b00669408b4df7 | |
parent | 17b29176b8350adf9f6d547d59b97c965f1aad7f (diff) |
really fix referring to remotes by uuid
-rw-r--r-- | Remote.hs | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -119,11 +119,12 @@ nameToUUID n = do where byDescription = do m <- uuidMap - case M.lookup n $ invertMap m of + case M.lookup n $ transform swap m of Just u -> return $ Just u - Nothing -> return $ M.lookup n m - invertMap = M.fromList . map swap . M.toList + Nothing -> return $ M.lookup n $ transform double m + transform a = M.fromList . map a . M.toList swap (a, b) = (b, a) + double (a, _) = (a, a) {- Pretty-prints a list of UUIDs of remotes, for human display. - |