tweak

Command.hs

@@ -1,4 +1,4 @@
-{- git-annex commands
+{- git-annex command infrastructure
  -
  - Copyright 2010 Joey Hess <joey@kitenet.net>
  -
@@ -29,6 +29,7 @@ import Types.Key
 import Trust
 import LocationLog
 import Config
+import Backend
 
 {- A command runs in four stages.
  -
@@ -49,8 +50,6 @@ type CommandPerform = Annex (Maybe CommandCleanup)
  -    returns the overall success/fail of the command. -}
 type CommandCleanup = Annex Bool
 
-type BackendFile = (FilePath, Maybe (Backend Annex))
-
 data Command = Command {
 	cmdusesrepo :: Bool,
 	cmdname :: String,