From 0718de4acc18df39152fc55d6bd279af56d7e2af Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Tue, 17 Jan 2023 09:12:18 +1100
Subject: add some strictness

---
 src/PPL/Sampling.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/PPL/Sampling.hs')

diff --git a/src/PPL/Sampling.hs b/src/PPL/Sampling.hs
index a3f38db..1d20838 100644
--- a/src/PPL/Sampling.hs
+++ b/src/PPL/Sampling.hs
@@ -42,7 +42,7 @@ mh p m = do
           ratio = w' / w
           (Exp . log -> r, g3) = random g2
       put g3
-      pure $
+      pure $!
         if r < ratio
           then (t', x', w')
           else (t, x, w)
-- 
cgit v1.2.3