Merge pull request #585 from well-typed/edsko/export-generic-classes

Export generic classes
haskell-beam · Oct 9, 2024 · 3b0c00b · 3b0c00b
2 parents ff8d508 + 57a12e6
commit 3b0c00b
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 2 deletions.
diff --git 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
@@ -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
@@ -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