import RowParser constructor from Internal

Ai-Ya-Ya · Ai-Ya-Ya · commit 367f81b1cc3e · 2026-04-04T02:45:10.000Z
resolves Tritlo/duckdb-haskell#6 in conjunction with Tritlo/duckdb-haskell#11
diff --git a/beam-duckdb/src/Database/Beam/DuckDB.hs b/beam-duckdb/src/Database/Beam/DuckDB.hs
@@ -89,7 +89,8 @@ import Database.Beam.DuckDB.Syntax.Builder
   )
 import Database.Beam.DuckDB.Syntax.Extensions.DataSource
 import Database.DuckDB.Simple (Connection, FromRow, Query (Query), ResultError (..), RowParser, ToField (toField), ToRow (toRow), bind, execute, nextRow, withStatement)
-import Database.DuckDB.Simple.FromRow (FromRow (..), RowParser (..), field)
+import Database.DuckDB.Simple.FromRow (FromRow (..), field)
+import Database.DuckDB.Simple.Internal (RowParser (..))
 import Database.DuckDB.Simple.Ok (Ok (..))
 
 -- | 'MonadBeam' instance inside which DuckDB queries are run. See the

Original file line number	Diff line number	Diff line change
`@@ -89,7 +89,8 @@ import Database.Beam.DuckDB.Syntax.Builder`
`89`	`89`	`)`
`90`	`90`	`import Database.Beam.DuckDB.Syntax.Extensions.DataSource`
`91`	`91`	`import Database.DuckDB.Simple (Connection, FromRow, Query (Query), ResultError (..), RowParser, ToField (toField), ToRow (toRow), bind, execute, nextRow, withStatement)`
`92`		`-import Database.DuckDB.Simple.FromRow (FromRow (..), RowParser (..), field)`
	`92`	`+import Database.DuckDB.Simple.FromRow (FromRow (..), field)`
	`93`	`+import Database.DuckDB.Simple.Internal (RowParser (..))`
`93`	`94`	`import Database.DuckDB.Simple.Ok (Ok (..))`
`94`	`95`
`95`	`96`	`-- \| 'MonadBeam' instance inside which DuckDB queries are run. See the`