summaryrefslogtreecommitdiff
path: root/Backend/File.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-31 16:00:32 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-31 16:00:32 -0400
commitcf4c926f2e78bd315988c1aae063f6b4148a2fae (patch)
treef7fdc76a1cc92c2c2836aff9ea10543679ab0457 /Backend/File.hs
parentb2c28c1ac0700eadc8689cdfb6f065d5147108bd (diff)
more Wall cleaning
Diffstat (limited to 'Backend/File.hs')
-rw-r--r--Backend/File.hs15
1 files changed, 5 insertions, 10 deletions
diff --git a/Backend/File.hs b/Backend/File.hs
index b45354752..5b93d8227 100644
--- a/Backend/File.hs
+++ b/Backend/File.hs
@@ -15,25 +15,18 @@
module Backend.File (backend) where
import Control.Monad.State
-import System.IO
-import System.Cmd
-import System.Cmd.Utils
-import Control.Exception
import System.Directory
-import List
-import Maybe
import TypeInternals
import LocationLog
import Locations
import qualified Remotes
import qualified GitRepo as Git
-import Utility
import Core
import qualified Annex
import UUID
-import qualified Backend
+backend :: Backend
backend = Backend {
name = mustProvide,
getKey = mustProvide,
@@ -43,11 +36,12 @@ backend = Backend {
hasKey = checkKeyFile
}
+mustProvide :: a
mustProvide = error "must provide this field"
{- Storing a key is a no-op. -}
dummyStore :: FilePath -> Key -> Annex (Bool)
-dummyStore file key = return True
+dummyStore _ _ = return True
{- Just check if the .git/annex/ file for the key exists. -}
checkKeyFile :: Key -> Annex Bool
@@ -146,7 +140,8 @@ showLocations key = do
if (null uuidsf)
then showLongNote $ "No other repository is known to contain the file."
else showLongNote $ "Try making some of these repositories available:\n" ++ ppuuids
-
+
+showTriedRemotes :: [Git.Repo] -> Annex ()
showTriedRemotes [] = return ()
showTriedRemotes remotes =
showLongNote $ "I was unable to access these remotes: " ++