From d3f0106f2ed15a4e4abbc09cc3e985a27dfee662 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 22 Jun 2011 14:27:50 -0400 Subject: move LocationLog into Annex monad from IO It will need to run in Annex so it can use Branch --- Remote.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Remote.hs') diff --git a/Remote.hs b/Remote.hs index d975c2404..2706bf20b 100644 --- a/Remote.hs +++ b/Remote.hs @@ -141,7 +141,7 @@ keyPossibilities key = do trusted <- trustGet Trusted -- get uuids of all remotes that are recorded to have the key - uuids <- liftIO $ keyLocations g key + uuids <- keyLocations g key let validuuids = filter (/= u) uuids -- note that validuuids is assumed to not have dups -- cgit v1.2.3