Fix typo

IntersectMBO · Nov 19, 2024 · f772b0d · f772b0d
1 parent 5b131e9
commit f772b0d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/cardano-chain-gen/test/Test/Cardano/Db/Mock/Config.hs b/cardano-chain-gen/test/Test/Cardano/Db/Mock/Config.hs
@@ -575,7 +575,7 @@ withFullConfig' WithConfigArgs {..} cmdLineArgs mSyncNodeConfig configFilePath t
         -- we dont fork dbsync here. Just prepare it as an action
         withDBSyncEnv (mkDBSyncEnv dbsyncParams syncNodeConfig partialDbSyncRun) $ \dbSyncEnv -> do
           let pgPass = getDBSyncPGPass dbSyncEnv
-          tableNames <- DB.getAllTablleNames pgPass
+          tableNames <- DB.getAllTableNames pgPass
           -- We only want to create the table schema once for the tests so here we check
           -- if there are any table names.
           if null tableNames || shouldDropDB

diff --git a/cardano-db/src/Cardano/Db/Migration.hs b/cardano-db/src/Cardano/Db/Migration.hs
@@ -11,7 +11,7 @@ module Cardano.Db.Migration (
   getMigrationScripts,
   runMigrations,
   recreateDB,
-  getAllTablleNames,
+  getAllTableNames,
   truncateTables,
   dropTables,
   getMaintenancePsqlConf,
@@ -298,8 +298,8 @@ recreateDB pgpass = do
     rawExecute "drop schema if exists public cascade" []
     rawExecute "create schema public" []
 
-getAllTablleNames :: PGPassSource -> IO [Text]
-getAllTablleNames pgpass = do
+getAllTableNames :: PGPassSource -> IO [Text]
+getAllTableNames pgpass = do
   runWithConnectionNoLogging pgpass $ do
     fmap unSingle <$> rawSql "SELECT tablename FROM pg_catalog.pg_tables WHERE schemaname = current_schema()" []