Revert spacing change in Semantics/Arbitrary.hs

input-output-hk · Jun 2, 2023 · e493a8f · e493a8f
1 parent 3dbd7a8
commit e493a8f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/marlowe-test/src/Spec/Marlowe/Semantics/Arbitrary.hs b/marlowe-test/src/Spec/Marlowe/Semantics/Arbitrary.hs
@@ -961,7 +961,7 @@ instance SemiArbitrary Contract where
         , pure Close
         ]
        else frequency
-        [ (4 , Pay <$> semiArbitrary ctx <*> semiArbitrary ctx <*> semiArbitrary ctx <*> semiArbitrary ctx <*> resize (pred size) (semiArbitrary ctx))
+        [ (4, Pay <$> semiArbitrary ctx <*> semiArbitrary ctx <*> semiArbitrary ctx <*> semiArbitrary ctx <*> resize (pred size) (semiArbitrary ctx))
         , (2, If <$> semiArbitrary ctx <*> resize (size `quot` 2) (semiArbitrary ctx) <*> resize (size `quot` 2) (semiArbitrary ctx))
         , ( 3
           , do