Remove redundant brackets.

google · Oct 7, 2024 · 19eead7 · 19eead7
1 parent 92f897b
commit 19eead7
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/proto-lens-tests/src/Data/ProtoLens/TestUtil.hs b/proto-lens-tests/src/Data/ProtoLens/TestUtil.hs
@@ -143,12 +143,14 @@ roundTripTest name = TypedTest $ testGroup name
     [ testProperty "shrink sanity" $
             -- Disable automatic shrinking so the test behaves
             -- sensibly if there's a bug in shrinkMessage.
-            noShrinking (
 #if MIN_VERSION_QuickCheck(2,10,0)
+            noShrinking $
             -- Limit the number of tests since shrinking is slow for large messages.
             withMaxSuccess 20
+                (shrinkSanityProperty :: MessageProperty a)
+#else
+            noShrinking (shrinkSanityProperty :: MessageProperty a)
 #endif
-                (shrinkSanityProperty :: MessageProperty a))
     , testProperty "wire" (wireRoundTripProperty :: MessageProperty a)
     , testProperty "text" (textRoundTripProperty :: MessageProperty a)
     ]