getMigrations should also have a getMigrations'

Author: andrevdm

src/Database/PostgreSQL/Simple/Migration.hs

@@ -37,6 +37,7 @@ module Database.PostgreSQL.Simple.Migration
 
     -- * Migration result actions
     , getMigrations
+    , getMigrations'
 
     -- * Migration result types
     , SchemaMigration(..)
@@ -337,10 +338,14 @@ data MigrationContext' = MigrationContext'
     , migrationTableName :: !BS.ByteString
     -- ^ The name of the table that stores the migrations
     }
+--
+-- | Produces a list of all executed 'SchemaMigration's.
+getMigrations :: Connection -> IO [SchemaMigration]
+getMigrations con = getMigrations' con "schema_migrations"
 
 -- | Produces a list of all executed 'SchemaMigration's.
-getMigrations :: Connection -> BS.ByteString -> IO [SchemaMigration]
-getMigrations con tableName = query_ con q
+getMigrations' :: Connection -> BS.ByteString -> IO [SchemaMigration]
+getMigrations' con tableName = query_ con q
     where q = mconcat
             [ "select filename, checksum, executed_at "
             , "from " <> Query tableName <> " order by executed_at asc"