move LocationLog into Annex monad from IO

It will need to run in Annex so it can use Branch

1 files changed, 1 insertions, 1 deletions

diff --git a/test.hs b/test.hs
index 498c7b680..1eac942b1 100644
--- a/test.hs
+++ b/test.hs
@@ -611,7 +611,7 @@ checklocationlog f expected = do
 		Just (k, _) -> do
 			uuids <- annexeval $ do
 				g <- Annex.gitRepo
-				liftIO $ LocationLog.keyLocations g k
+				LocationLog.keyLocations g k
 			assertEqual ("bad content in location log for " ++ f ++ " key " ++ (show k) ++ " uuid " ++ thisuuid)
 				expected (thisuuid `elem` uuids)