From 5ae270001c978b306419e6799e67e5f14a1765a2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 28 Sep 2011 15:17:45 -0400
Subject: fix

---
 test.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test.hs b/test.hs
index 4d751a707..32278f0fc 100644
--- a/test.hs
+++ b/test.hs
@@ -44,6 +44,7 @@ import qualified Types.Key
 import qualified Config
 import qualified Crypto
 import qualified Utility.Path
+import qualified Utility.FileMode
 
 -- for quickcheck
 instance Arbitrary Types.Key.Key where
@@ -389,7 +390,7 @@ test_fsck = "git-annex fsck" ~: TestList [basicfsck, withlocaluntrusted, withrem
 
 		corrupt f = do
 			git_annex "get" ["-q", f] @? "get of file failed"
-			Content.allowWrite f
+			Utility.FileMode.allowWrite f
 			writeFile f (changedcontent f)
 			r <- git_annex "fsck" ["-q"]
 			not r @? "fsck failed to fail with corrupted file content"
@@ -558,7 +559,7 @@ cleanup dir = do
 		-- removed via directory permissions; undo
 		recurseDir SystemFS dir >>=
 			filterM doesDirectoryExist >>=
-			mapM_ Content.allowWrite
+			mapM_ Utility.FileMode.allowWrite
 		removeDirectoryRecursive dir
 	
 checklink :: FilePath -> Assertion
-- 
cgit v1.2.3