More strict fields.

1 files 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)
     }