Strict fields

arybczak · arybczak · commit 3f67a93ebf6b · 2025-10-06T07:47:03.000+02:00
diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs b/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs
@@ -129,13 +129,13 @@ data Connection = Connection
   }
 
 data InternalConnectionSource m cdata = InternalConnectionSource
-  { takeConnection :: m (Connection, cdata)
-  , putConnection :: forall r. (Connection, cdata) -> ExitCase r -> m ()
+  { takeConnection :: !(m (Connection, cdata))
+  , putConnection :: !(forall r. (Connection, cdata) -> ExitCase r -> m ())
   }
 
 -- | Database connection supplier.
 data ConnectionSourceM m
-  = forall cdata. ConnectionSourceM (InternalConnectionSource m cdata)
+  = forall cdata. ConnectionSourceM !(InternalConnectionSource m cdata)
 
 -- | Wrapper for a polymorphic connection source.
 newtype ConnectionSource (cs :: [(Type -> Type) -> Constraint]) = ConnectionSource

Original file line number	Diff line number	Diff line change
`@@ -129,13 +129,13 @@ data Connection = Connection`
`129`	`129`	`}`
`130`	`130`
`131`	`131`	`data InternalConnectionSource m cdata = InternalConnectionSource`
`132`		`- { takeConnection :: m (Connection, cdata)`
`133`		`- , putConnection :: forall r. (Connection, cdata) -> ExitCase r -> m ()`
	`132`	`+ { takeConnection :: !(m (Connection, cdata))`
	`133`	`+ , putConnection :: !(forall r. (Connection, cdata) -> ExitCase r -> m ())`
`134`	`134`	`}`
`135`	`135`
`136`	`136`	`-- \| Database connection supplier.`
`137`	`137`	`data ConnectionSourceM m`
`138`		`- = forall cdata. ConnectionSourceM (InternalConnectionSource m cdata)`
	`138`	`+ = forall cdata. ConnectionSourceM !(InternalConnectionSource m cdata)`
`139`	`139`
`140`	`140`	`-- \| Wrapper for a polymorphic connection source.`
`141`	`141`	`newtype ConnectionSource (cs :: [(Type -> Type) -> Constraint]) = ConnectionSource`