diff options
Diffstat (limited to 'src/VeriFuzz.hs')
-rw-r--r-- | src/VeriFuzz.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/VeriFuzz.hs b/src/VeriFuzz.hs index 495492f..6667827 100644 --- a/src/VeriFuzz.hs +++ b/src/VeriFuzz.hs @@ -166,4 +166,4 @@ runEquivalence seed gm t d k i = do where n = t <> "_" <> T.pack (show i) runReduce :: SourceInfo -> IO SourceInfo -runReduce = reduce $ flip checkEquivalence "reduce" +runReduce s = reduce (\s -> not <$> checkEquivalence s "reduce") s |