got rid of Core module

Most of it was to do with managing annexed Content, so put there

Command/Add.hs

@@ -15,7 +15,7 @@ import qualified Annex
 import qualified Backend
 import LocationLog
 import Types
-import Core
+import Content
 import Messages
 
 command :: [Command]

Command/Drop.hs

@@ -13,7 +13,7 @@ import Command
 import qualified Backend
 import LocationLog
 import Types
-import Core
+import Content
 import Messages
 import Utility
 

Command/DropKey.hs

@@ -12,7 +12,7 @@ import qualified Annex
 import qualified Backend
 import LocationLog
 import Types
-import Core
+import Content
 import Messages
 
 command :: [Command]

Command/Find.hs

@@ -11,7 +11,7 @@ import Control.Monad (when)
 import Control.Monad.State (liftIO)
 
 import Command
-import Core
+import Content
 
 command :: [Command]
 command = [Command "find" (paramOptional $ paramRepeating paramPath) seek

Command/Fix.hs

@@ -14,7 +14,7 @@ import System.Directory
 import Command
 import qualified Annex
 import Utility
-import Core
+import Content
 import Messages
 
 command :: [Command]

Command/FromKey.hs

@@ -17,7 +17,7 @@ import qualified Annex
 import Utility
 import qualified Backend
 import Types
-import Core
+import Content
 import Messages
 
 command :: [Command]

Command/Get.hs

@@ -10,7 +10,7 @@ module Command.Get where
 import Command
 import qualified Backend
 import Types
-import Core
+import Content
 import Messages
 
 command :: [Command]

Command/InAnnex.hs

@@ -12,7 +12,7 @@ import System.Exit
 
 import Command
 import Types
-import Core
+import Content
 import qualified Backend
 
 command :: [Command]

Command/Migrate.hs

@@ -16,7 +16,7 @@ import qualified Annex
 import qualified Backend
 import Locations
 import Types
-import Core
+import Content
 import Messages
 import qualified Command.Add
 

Command/Move.hs

@@ -14,7 +14,7 @@ import qualified Command.Drop
 import qualified Annex
 import LocationLog
 import Types
-import Core
+import Content
 import qualified GitRepo as Git
 import qualified Remotes
 import UUID

Command/RecvKey.hs

@@ -13,7 +13,8 @@ import System.Exit
 
 import Command
 import Types
-import Core
+import CmdLine
+import Content
 import qualified Backend
 import RsyncFile
 

Command/SendKey.hs

@@ -15,7 +15,7 @@ import Locations
 import qualified Annex
 import Command
 import Types
-import Core
+import Content
 import qualified Backend
 import RsyncFile
 

Command/SetKey.hs

@@ -16,7 +16,7 @@ import Utility
 import qualified Backend
 import LocationLog
 import Types
-import Core
+import Content
 import Messages
 
 command :: [Command]

Command/Unannex.hs

@@ -16,7 +16,7 @@ import Utility
 import qualified Backend
 import LocationLog
 import Types
-import Core
+import Content
 import qualified GitRepo as Git
 import Messages
 

Command/Unlock.hs

@@ -17,7 +17,7 @@ import qualified Backend
 import Types
 import Messages
 import Locations
-import Core
+import Content
 import CopyFile
 
 command :: [Command]

Command/Unused.hs

@@ -9,13 +9,16 @@ module Command.Unused where
 
 import Control.Monad.State (liftIO)
 import qualified Data.Map as M
+import Data.Maybe
 
 import Command
 import Types
-import Core
+import Content
 import Messages
 import Locations
 import qualified Annex
+import qualified GitRepo as Git
+import qualified Backend
 
 command :: [Command]
 command = [Command "unused" paramNothing seek "look for unused file content"]
@@ -80,3 +83,11 @@ unusedKeys = do
 
 existsMap :: Ord k => [k] -> M.Map k Int
 existsMap l = M.fromList $ map (\k -> (k, 1)) l
+
+{- List of keys referenced by symlinks in the git repo. -}
+getKeysReferenced :: Annex [Key]
+getKeysReferenced = do
+	g <- Annex.gitRepo
+	files <- liftIO $ Git.inRepo g [Git.workTree g]
+	keypairs <- mapM Backend.lookupFile files
+	return $ map fst $ catMaybes keypairs