summaryrefslogtreecommitdiff
path: root/Backend
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 /Backend
parent003a604a6e48a8a0ffd1564e3399b54e8c673e92 (diff)
factor out common imports
no code changes
Diffstat (limited to 'Backend')
-rw-r--r--Backend/SHA.hs16
-rw-r--r--Backend/URL.hs2
-rw-r--r--Backend/WORM.hs6
3 files changed, 4 insertions, 20 deletions
diff --git a/Backend/SHA.hs b/Backend/SHA.hs
index 15d3fa20d..0c36ef0dc 100644
--- a/Backend/SHA.hs
+++ b/Backend/SHA.hs
@@ -7,23 +7,11 @@
module Backend.SHA (backends) where
-import Control.Monad.State
-import Data.String.Utils
-import System.Cmd.Utils
-import System.IO
-import System.Directory
-import Data.Maybe
-import System.Posix.Files
-import System.FilePath
-
-import Messages
+import AnnexCommon
import qualified Annex
-import Locations
import Content
-import Types
import Types.Backend
import Types.Key
-import Utility.SafeCommand
import qualified Build.SysConfig as SysConfig
type SHASize = Int
@@ -110,7 +98,7 @@ keyValueE size file = keyValue size file >>= maybe (return Nothing) addE
{- A key's checksum is checked during fsck. -}
checkKeyChecksum :: SHASize -> Key -> Annex Bool
checkKeyChecksum size key = do
- g <- Annex.gitRepo
+ g <- gitRepo
fast <- Annex.getState Annex.fast
let file = gitAnnexLocation g key
present <- liftIO $ doesFileExist file
diff --git a/Backend/URL.hs b/Backend/URL.hs
index f20aa1f95..0745de455 100644
--- a/Backend/URL.hs
+++ b/Backend/URL.hs
@@ -10,9 +10,9 @@ module Backend.URL (
fromUrl
) where
+import AnnexCommon
import Types.Backend
import Types.Key
-import Types
backends :: [Backend Annex]
backends = [backend]
diff --git a/Backend/WORM.hs b/Backend/WORM.hs
index 831c9e8ce..80c652558 100644
--- a/Backend/WORM.hs
+++ b/Backend/WORM.hs
@@ -7,12 +7,8 @@
module Backend.WORM (backends) where
-import Control.Monad.State
-import System.FilePath
-import System.Posix.Files
-
+import AnnexCommon
import Types.Backend
-import Types
import Types.Key
backends :: [Backend Annex]