From cf4c926f2e78bd315988c1aae063f6b4148a2fae Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 31 Oct 2010 16:00:32 -0400
Subject: more Wall cleaning

---
 Backend/File.hs | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

(limited to 'Backend/File.hs')

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: " ++
-- 
cgit v1.2.3