From 3834085a322dc0e0c9672c936fc126e2e488162a Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sat, 10 Aug 2019 06:41:55 -0400 Subject: More strict fields. --- packages/base/src/Internal/Specialized.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/packages/base/src/Internal/Specialized.hs b/packages/base/src/Internal/Specialized.hs index 9a68ad5..d840434 100644 --- a/packages/base/src/Internal/Specialized.hs +++ b/packages/base/src/Internal/Specialized.hs @@ -99,11 +99,11 @@ f2iM :: Storable t => Matrix (Mod n t) -> Matrix t f2iM m = m { xdat = f2i (xdat m) } data IntegralRep t a = IntegralRep - { i2rep :: Vector t -> Vector a - , i2repM :: Matrix t -> Matrix a - , rep2i :: Vector a -> Vector t - , rep2iM :: Matrix a -> Matrix t - , rep2one :: a -> t + { i2rep :: !(Vector t -> Vector a) + , i2repM :: !(Matrix t -> Matrix a) + , rep2i :: !(Vector a -> Vector t) + , rep2iM :: !(Matrix a -> Matrix t) + , rep2one :: !(a -> t) , modulo :: !(Maybe t) } -- cgit v1.2.3