From 5a29df2e6fe33c59911ed61f40c2dde53dce3f66 Mon Sep 17 00:00:00 2001
From: Laurent Rene de Cotret <l.rdc@socivolta.com>
Date: Mon, 7 Oct 2024 14:28:19 -0400
Subject: [PATCH] Exported `DatabaseSchema` type.

---
 beam-migrate/Database/Beam/Migrate/SQL/Tables.hs | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/beam-migrate/Database/Beam/Migrate/SQL/Tables.hs b/beam-migrate/Database/Beam/Migrate/SQL/Tables.hs
index 4317287c..ecd0193a 100644
--- a/beam-migrate/Database/Beam/Migrate/SQL/Tables.hs
+++ b/beam-migrate/Database/Beam/Migrate/SQL/Tables.hs
@@ -21,7 +21,7 @@ module Database.Beam.Migrate.SQL.Tables
   , addColumn, dropColumn
 
     -- * Schema manipulation
-  , createDatabaseSchema, dropDatabaseSchema, existingDatabaseSchema
+  , DatabaseSchema(..), createDatabaseSchema, dropDatabaseSchema, existingDatabaseSchema
 
     -- * Field specification
   , DefaultValue, Constraint(..), NotNullConstraint
@@ -82,9 +82,10 @@ createTable = createTableWithSchema Nothing
 
 -- * Schema manipulation
 
--- | Represents a database schema. To create one, see 'createDatabaseSchema'.
+-- | Represents a database schema. To create one, see 'createDatabaseSchema'; 
+--   to materialize one, see 'existingDatabaseSchema'.
 newtype DatabaseSchema 
-  = MkDatabaseSchema Text
+  = DatabaseSchema Text
   deriving (Eq, Show, IsString)
 
 -- | Add a @CREATE SCHEMA@ statement to this migration
@@ -97,7 +98,7 @@ createDatabaseSchema :: BeamMigrateSchemaSqlBackend be
                      -> Migration be DatabaseSchema
 createDatabaseSchema nm = do
   upDown (createSchemaCmd (createSchemaSyntax (schemaName nm))) Nothing
-  pure $ MkDatabaseSchema nm
+  pure $ DatabaseSchema nm
 
 -- | Add a @DROP SCHEMA@ statement to this migration.
 --
@@ -108,7 +109,7 @@ createDatabaseSchema nm = do
 dropDatabaseSchema :: BeamMigrateSchemaSqlBackend be
                    => DatabaseSchema
                    -> Migration be ()
-dropDatabaseSchema (MkDatabaseSchema nm) 
+dropDatabaseSchema (DatabaseSchema nm) 
   = upDown (dropSchemaCmd (dropSchemaSyntax (schemaName nm))) Nothing
 
 -- | Materialize a schema for use during a migration.
@@ -124,7 +125,7 @@ dropDatabaseSchema (MkDatabaseSchema nm)
 --                <*> 'createTableWithSchema' (Just schema) "my_table"
 -- @
 existingDatabaseSchema :: Text -> Migration be DatabaseSchema
-existingDatabaseSchema = pure . MkDatabaseSchema
+existingDatabaseSchema = pure . DatabaseSchema
 
 -- | Add a @CREATE TABLE@ statement to this migration, with an explicit schema
 --
@@ -166,7 +167,7 @@ createTableWithSchema maybeSchemaName newTblName tblSettings =
          schemaCheck = 
             case maybeSchemaName of
               Nothing -> []
-              Just (MkDatabaseSchema sn) -> [ SomeDatabasePredicate (SchemaExistsPredicate sn) ] 
+              Just (DatabaseSchema sn) -> [ SomeDatabasePredicate (SchemaExistsPredicate sn) ] 
 
      upDown command Nothing
      pure (CheckedDatabaseEntity