remove unnecessary wraps in nested <~ statements

penguinland · Sep 21, 2024 · 6f13147 · 6f13147
1 parent 9ce8d43
commit 6f13147
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/Topics/Lebensohl.hs b/src/Topics/Lebensohl.hs
@@ -103,7 +103,7 @@ gameForce = let
             "bid our suit at the 3 level. Partner will bid naturally, and " .+
             "we'll find a game (likely either our suit or notrump)."
         inner response = situation "gfnat" action response explanation dlr vul
-      in wrap $ return inner <~ responses
+      in return inner <~ responses
   in
     wrap $ return sit
         <~ [ (Nat.b1No2D,  [Leb.b1No2D3C, Leb.b1No2D3H, Leb.b1No2D3S])

diff --git a/src/Topics/StandardModernPrecision/TripleFourOne.hs b/src/Topics/StandardModernPrecision/TripleFourOne.hs
@@ -23,7 +23,7 @@ showAny4441 = let
           in
             situation "any" action' answer explanation dealer vul
       in
-        wrap $ return inner <~ dealers
+        return inner <~ dealers
   in
     wrap $ return sit <~ [ (do B.b1C
                                oppsPass
@@ -54,7 +54,7 @@ relay = let
           in
             situation "relay" action' answer explanation dealer vul
       in
-        wrap $ return inner <~ dealers
+        return inner <~ dealers
   in
     wrap $ return sit <~ [ (do B.b1C
                                oppsPass
@@ -92,7 +92,7 @@ bidSingleton = let
           in
             situation "bsing" action' answer explanation dealer vul
       in
-        wrap $ return inner <~ answers <~ dealers
+        return inner <~ answers <~ dealers
   in
     wrap $ return sit
         <~ [ (do B.b1C
@@ -142,7 +142,7 @@ singletonInPartnerSuit = let
           in
             situation "pdsing" action' ourBid explanation dealer vul
       in
-        wrap $ return inner <~ lastTwoBids <~ dealers
+        return inner <~ lastTwoBids <~ dealers
   in
     wrap $ return sit <~ [ (do B.b1C
                                oppsPass