Normalize all name tokens to lowercase

unisoncomputing · Jul 28, 2024 · 5903f7f · 5903f7f
1 parent c569a1e
commit 5903f7f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Share/Postgres/Search/DefinitionSearch/Queries.hs b/src/Share/Postgres/Search/DefinitionSearch/Queries.hs
@@ -180,7 +180,9 @@ searchTokenToText shouldAddWildcards = \case
     makeSearchToken nameType (reversedNameText name) Nothing
       & addWildCard
   TypeMentionToken (Left name) occ ->
-    makeSearchToken typeMentionTypeByNameType (reversedNameText name) (Just occ)
+    -- We normalize the name to lowercase for case-insensitive search, but only for type name
+    -- mentions.
+    makeSearchToken typeMentionTypeByNameType (Text.toLower $ reversedNameText name) (Just occ)
       & addWildCard
   TypeMentionToken (Right sh) occ ->
     makeSearchToken typeMentionTypeByHashType (into @Text @ShortHash sh) (Just occ)