make sure all sqlite selects have indexes

Bearing in mind that these indexes are really uniqueness constraints
that just happen to also make sqlite generate indexes.

In Database.ContentIndentifier, the ContentIndentifiersKeyRemoteCidIndex
is fine as a uniqueness constraint because it contains all rows from the
table. The ContentIndentifiersCidRemoteIndex is also ok because there
can only be one key for a given (cid, uuid) combination.

In Database.Export, the new ExportTreeFileKeyIndex is the same pair as
the old ExportTreeKeyFileIndex (previously ExportTreeIndex). And
in Database.Keys.SQL, the new InodeCacheKeyIndex is the same pair as the
old KeyInodeCacheIndex.

Database/ContentIdentifier.hs

@@ -53,6 +53,8 @@ ContentIdentifiers
   remote UUID
   cid ContentIdentifier
   key Key
+  ContentIndentifiersKeyRemoteCidIndex key remote cid
+  ContentIndentifiersCidRemoteIndex cid remote
 -- The last git-annex branch tree sha that was used to update
 -- ContentIdentifiers
 AnnexBranch

Database/Export.hs

@@ -76,7 +76,8 @@ ExportedDirectory
 ExportTree
   key Key
   file SFilePath
-  ExportTreeIndex key file
+  ExportTreeKeyFileIndex key file
+  ExportTreeFileKeyIndex file key
 -- The tree stored in ExportTree
 ExportTreeCurrent
   tree SSha
@@ -165,9 +166,6 @@ getExportTree (ExportHandle h _) k = H.queryDbQueue h $ do
 	return $ map (mkExportLocation . fromSFilePath . exportTreeFile . entityVal) l
 
 {- Get keys that might be currently exported to a location.
- -
- - Note that the database does not currently have an index to make this
- - fast.
  -
  - Note that this does not see recently queued changes.
  -}

Database/Fsck.hs

@@ -40,7 +40,7 @@ data FsckHandle = FsckHandle H.DbQueue UUID
 share [mkPersist sqlSettings, mkMigrate "migrateFsck"] [persistLowerCase|
 Fscked
   key Key
-  UniqueKey key
+  FsckedKeyIndex key
 |]
 
 {- The database is removed when starting a new incremental fsck pass.

Database/Keys/SQL.hs

@@ -52,6 +52,7 @@ Content
   key Key
   inodecache InodeCache
   KeyInodeCacheIndex key inodecache
+  InodeCacheKeyIndex inodecache key
 |]
 
 containedTable :: TableName