Updates for change to {#Index}

Cloogle/DB.dcl

@@ -270,6 +270,7 @@ writeTypeTree :: !*CloogleDB !*File -> *(*CloogleDB, *File)
 
 getIndex :: !Index !*CloogleDB -> *(Entry CloogleEntry Annotation, *CloogleDB)
 getIndices :: ![Index] !*CloogleDB -> *([Entry CloogleEntry Annotation], *CloogleDB)
+getIndices` :: !{#Index} !*CloogleDB -> *([Entry CloogleEntry Annotation], *CloogleDB)
 
 filterDB :: (CloogleEntry -> Bool) !*CloogleDB -> *CloogleDB
 excludeCore :: !*CloogleDB -> *CloogleDB

Cloogle/DB.icl

@@ -347,6 +347,11 @@ getIndices idxs wrap=:{db}
 # (es,db) = 'Database.Native'.getIndices idxs db
 = (es, {wrap & db=db})
 
+getIndices` :: !{#Index} !*CloogleDB -> *([Entry CloogleEntry Annotation], *CloogleDB)
+getIndices` idxs wrap=:{db}
+# (es,db) = 'Database.Native'.getIndices` idxs db
+= (es, {wrap & db=db})
+
 filterDB :: (CloogleEntry -> Bool) !*CloogleDB -> *CloogleDB
 filterDB f db = {db & db = 'Database.Native'.search Intersect (\v -> (f v, [])) db.db}
 

Cloogle/Search.icl

@@ -193,7 +193,7 @@ makeResult orgsearchtype allsyns usedsyns (entry, annots) db
 	// Derivations
 	# (derivs,db) = case fe.fe_derivations of
 		Nothing -> (Nothing, db)
-		Just ds -> appFst Just $ getIndices ds db
+		Just ds -> appFst Just $ getIndices` ds db
 	= (Just $ FunctionResult (
 		{ general
 		& distance = distance entry annots
@@ -234,8 +234,8 @@ makeResult orgsearchtype allsyns usedsyns (entry, annots) db
 
 | entry =: (TypeDefEntry _)
 	# (TypeDefEntry tde) = entry
-	# (insts,db) = getIndices tde.tde_instances db
-	# (derivs,db) = getIndices tde.tde_derivations db
+	# (insts,db) = getIndices` tde.tde_instances db
+	# (derivs,db) = getIndices` tde.tde_derivations db
 	= (Just $ TypeResult (
 		{ general
 		& documentation = docDescription =<< tde.tde_doc
@@ -262,8 +262,8 @@ makeResult orgsearchtype allsyns usedsyns (entry, annots) db
 
 | entry =: (ClassEntry _)
 	# (ClassEntry ce) = entry
-	# (ies,db) = getIndices ce.ce_instances db
-	# (mems,db) = getIndices ce.ce_members db
+	# (ies,db) = getIndices` ce.ce_instances db
+	# (mems,db) = getIndices` ce.ce_members db
 	= (Just $ ClassResult (
 		{ general
 		& documentation = docDescription =<< ce.ce_documentation