refactor: extract top level SchemaCache.tablesFuzzyIndex function

Author: mkleczek

src/library/PostgREST/SchemaCache.hs

@@ -188,17 +188,22 @@ querySchemaCache conf@AppConfig{..} = do
     , dbMediaHandlers = HM.union mHdlers initialMediaHandlers -- the custom handlers will override the initial ones
     , dbTimezones = tzones
 
-    , dbTablesFuzzyIndex =
-        -- Only build fuzzy index for schemas with a reasonable number of tables
-        -- Fuzzy.FuzzySet is memory heavy we just don't use it for large schemas
-        Fuzzy.fromList <$> HM.filter ((< maxDbTablesForFuzzySearch) . length) (HM.fromListWith (<>) ((qiSchema &&& pure . qiName) <$> HM.keys tabsWViewsPks))
+    , dbTablesFuzzyIndex = tablesFuzzyIndex tabsWViewsPks
     }, qsTime)
   where
     schemas = toList configDbSchemas
     isLogDebug = configLogLevel == LogDebug
     sqlTimedStmt = sqlTimedStatement isLogDebug
     sleepCall = SQL.Statement "select pg_sleep($1 / 1000.0)" (param HE.int4) HD.noResult True
 
+tablesFuzzyIndex :: TablesMap -> TablesFuzzyIndex
+tablesFuzzyIndex tabs =
+  -- Only build fuzzy index for schemas with a reasonable number of tables
+  -- Fuzzy.FuzzySet is memory heavy we just don't use it for large schemas
+  Fuzzy.fromList <$>
+    HM.filter ((< maxDbTablesForFuzzySearch) . length)
+      (HM.fromListWith (<>) ((qiSchema &&& pure . qiName) <$> HM.keys tabs))
+
 -- | overrides detected relationships with the computed relationships and gets the RelationshipsMap
 getOverrideRelationshipsMap :: [Relationship] -> [Relationship] -> RelationshipsMap
 getOverrideRelationshipsMap rels cRels =