minor syntax changes

1 files changed, 1 insertions, 3 deletions

diff --git a/test.hs b/test.hs
index 16f2a2bdf..1c511b4d4 100644
--- a/test.hs
+++ b/test.hs
@@ -609,9 +609,7 @@ checkdangling f = do
 
 checklocationlog :: FilePath -> Bool -> Assertion
 checklocationlog f expected = do
-	thisuuid <- annexeval $ do
-		g <- Annex.gitRepo
-		UUID.getUUID g
+	thisuuid <- annexeval UUID.getUUID
 	r <- annexeval $ Backend.lookupFile f
 	case r of
 		Just (k, _) -> do