Fix OSS build

Reviewed By: malanka Differential Revision: D65942221 fbshipit-source-id: d205ca259db456c768ea50f9544cae42a0412edf
facebookincubator · Nov 14, 2024 · c780a89 · c780a89
1 parent 1126ee5
commit c780a89
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/glean/server/Glean/Server/Sharding.hs b/glean/server/Glean/Server/Sharding.hs
@@ -68,7 +68,7 @@ shardManagerConfig ::
   Observed ServerConfig.Config ->
   (SomeShardManager -> IO b) ->
   IO b
-shardManagerConfig _mbPort catalog smCfgServerConfig callback = do
+shardManagerConfig _mbPort _catalog smCfgServerConfig callback = do
   config <- Observed.get smCfgServerConfig
   case ServerConfig.config_sharding config of
     ServerConfig.ShardingPolicy_no_shards {} ->
@@ -109,7 +109,7 @@ shardManagerConfig _mbPort catalog smCfgServerConfig callback = do
             , defaultDomainName = shardManagerPolicy_default_domain_id
             }
           getMostRecent =
-            Set.fromList . map itemRepo <$> Catalog.listMostRecent catalog
+            Set.fromList . map itemRepo <$> Catalog.listMostRecent _catalog
 
       withShardManagerForMostRecent
         smCliArgs