Add strictness to sampling from CT

When result is returned strictly GHC is able to unbox it.
haskell · May 11, 2024 · 8a22460 · 8a22460
1 parent 0fc0950
commit 8a22460
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/Random/MWC/CondensedTable.hs b/System/Random/MWC/CondensedTable.hs
@@ -79,7 +79,7 @@ genFromTable :: (StatefulGen g m, Vector v a) => CondensedTable v a -> g -> m a
 {-# INLINE genFromTable #-}
 genFromTable table gen = do
   w <- uniformM gen
-  return $ lookupTable table $ fromIntegral (w :: Word32)
+  return $! lookupTable table $ fromIntegral (w :: Word32)
 
 lookupTable :: Vector v a => CondensedTable v a -> Word64 -> a
 {-# INLINE lookupTable #-}