Strict field

arybczak · arybczak · commit 3a581f64d455 · 2025-04-08T13:04:42.000+02:00
diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs b/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs
@@ -97,7 +97,7 @@ data ConnectionStats = ConnectionStats
   -- ^ Number of values fetched from the database.
   , statsParams :: !Int
   -- ^ Number of parameters sent to the database.
-  , statsTime :: Double
+  , statsTime :: !Double
   -- ^ Time spent executing queries (in seconds).
   }
   deriving (Eq, Ord, Show)

Original file line number	Diff line number	Diff line change
`@@ -97,7 +97,7 @@ data ConnectionStats = ConnectionStats`
`97`	`97`	`-- ^ Number of values fetched from the database.`
`98`	`98`	`, statsParams :: !Int`
`99`	`99`	`-- ^ Number of parameters sent to the database.`
`100`		`- , statsTime :: Double`
	`100`	`+ , statsTime :: !Double`
`101`	`101`	`-- ^ Time spent executing queries (in seconds).`
`102`	`102`	`}`
`103`	`103`	`deriving (Eq, Ord, Show)`