From 9ff14202f8337a608d37f1f89296bd1ff1b43e14 Mon Sep 17 00:00:00 2001
From: Gustavo Leon <1261319+gusty@users.noreply.github.com>
Date: Sat, 16 Sep 2023 21:47:07 +0200
Subject: [PATCH] Use strict monad in sample

---
 src/FSharpPlus.Docs/Samples/Learn You a Haskell.fsx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/FSharpPlus.Docs/Samples/Learn You a Haskell.fsx b/src/FSharpPlus.Docs/Samples/Learn You a Haskell.fsx
index 1a035464b..a9f043aef 100644
--- a/src/FSharpPlus.Docs/Samples/Learn You a Haskell.fsx	
+++ b/src/FSharpPlus.Docs/Samples/Learn You a Haskell.fsx	
@@ -563,7 +563,7 @@ let loadedCoin = Prob [(Heads, 0.1); (Tails, 0.9)]
 // Prob [(false, 0.025); (false, 0.225); (false, 0.025); (false, 0.225);
 //       (false, 0.025); (false, 0.225); (false, 0.025); (true, 0.225)]
 let flipThree : Prob<bool> =
-    monad {
+    monad' {
         let! a = coin
         let! b = coin
         let! c = loadedCoin