diff --git a/beam-core/Database/Beam/Backend/SQL/Row.hs b/beam-core/Database/Beam/Backend/SQL/Row.hs index 175066c2..3ff9449f 100644 --- a/beam-core/Database/Beam/Backend/SQL/Row.hs +++ b/beam-core/Database/Beam/Backend/SQL/Row.hs @@ -13,6 +13,9 @@ module Database.Beam.Backend.SQL.Row , ColumnParseError(..), BeamRowReadError(..) , FromBackendRow(..) + + -- * Exported so we can override defaults + , GFromBackendRow(..) -- for 'runSelectReturningList' and co ) where import Database.Beam.Backend.SQL.Types diff --git a/beam-core/Database/Beam/Schema/Lenses.hs b/beam-core/Database/Beam/Schema/Lenses.hs index b46f15ee..41452901 100644 --- a/beam-core/Database/Beam/Schema/Lenses.hs +++ b/beam-core/Database/Beam/Schema/Lenses.hs @@ -4,7 +4,12 @@ module Database.Beam.Schema.Lenses ( tableLenses , TableLens(..) - , dbLenses ) where + , dbLenses + + -- * Exported so we can override defaults + , GTableLenses(..) + , GDatabaseLenses(..) + ) where import Database.Beam.Schema.Tables diff --git a/beam-core/Database/Beam/Schema/Tables.hs b/beam-core/Database/Beam/Schema/Tables.hs index ab359ab4..b3447149 100644 --- a/beam-core/Database/Beam/Schema/Tables.hs +++ b/beam-core/Database/Beam/Schema/Tables.hs @@ -57,7 +57,20 @@ module Database.Beam.Schema.Tables , pk , allBeamValues, changeBeamRep , alongsideTable - , defaultFieldName ) + , defaultFieldName + + -- * Exported so we can override defaults + -- For 'Beamable' + , GZipTables(..) + , GTableSkeleton(..) + -- For 'Database' + , GZipDatabase(..) + -- for 'defaultDbSettings' + , GAutoDbSettings(..) + , GDefaultTableFieldSettings(..) + , ChooseSubTableStrategy + , SubTableStrategyImpl + ) where import Database.Beam.Backend.Types