case-insensitive search for Haskell

Author: simonmar

glean/schema/source/search.code.angle

@@ -987,12 +987,8 @@ predicate HsSearchByLowerCaseName:
     name: string,
     entity: code.Entity,
   }
-  { Name, Entity } where
-  (
-    hs.DefinitionNameLowerCase { Name, hs.DefinitionName NameCase }
-    # later: other kinds of definition
-  );
-  HsSearchByName { NameCase, Entity };
+  { Name, { hs = E } } where
+  search.hs.SearchByLowerCaseName { name = Name, entity = E }
 
 predicate ErlangSearchByName:
   {

glean/schema/source/search.hs.angle

@@ -10,4 +10,12 @@ schema search.hs.9 {
       entity: code.hs.Entity,
     } { Name, Entity } where Entity.occ.name = Name;
 
+  predicate SearchByLowerCaseName:
+    {
+      name: string,
+      entity: code.hs.Entity,
+    } { Name, Entity } where
+      hs.OccNameLowerCase { Name, Occ };
+      Entity.occ = Occ;
+
 }