summaryrefslogtreecommitdiff
path: root/Command/Fsck.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-03 22:24:57 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-03 23:29:48 -0400
commit8ef2095fa00408ce6729596a42bc0abdc7778098 (patch)
treed6fc3c9f9519ba2ce617a804ce1c5f33f59a9109 /Command/Fsck.hs
parent003a604a6e48a8a0ffd1564e3399b54e8c673e92 (diff)
factor out common imports
no code changes
Diffstat (limited to 'Command/Fsck.hs')
-rw-r--r--Command/Fsck.hs15
1 files changed, 3 insertions, 12 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index 0c58add6a..33a8405a6 100644
--- a/Command/Fsck.hs
+++ b/Command/Fsck.hs
@@ -7,25 +7,16 @@
module Command.Fsck where
-import Control.Monad (when)
-import Control.Monad.State (liftIO)
-import System.Directory
-import System.Posix.Files
-
+import AnnexCommon
import Command
-import qualified Annex
import qualified Remote
import qualified Types.Backend
import qualified Types.Key
import UUID
-import Types
-import Messages
import Content
import LocationLog
-import Locations
import Trust
import Utility.DataUnits
-import Utility.Path
import Utility.FileMode
import Config
@@ -54,7 +45,7 @@ perform key file backend numcopies = do
in this repository only. -}
verifyLocationLog :: Key -> FilePath -> Annex Bool
verifyLocationLog key file = do
- g <- Annex.gitRepo
+ g <- gitRepo
present <- inAnnex key
-- Since we're checking that a key's file is present, throw
@@ -98,7 +89,7 @@ fsckKey backend key file numcopies = do
- the key's metadata, if available. -}
checkKeySize :: Key -> Annex Bool
checkKeySize key = do
- g <- Annex.gitRepo
+ g <- gitRepo
let file = gitAnnexLocation g key
present <- liftIO $ doesFileExist file
case (present, Types.Key.keySize key) of