diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2019-05-20 17:02:30 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2019-05-20 17:02:30 +0100 |
| commit | b9761e43a5995734acb2d8609a6f25891297fd28 (patch) | |
| tree | 171d92fc9f74a0533705cc97c994746b9375fb0b /src/VeriFuzz/Fuzz.hs | |
| parent | d9258cd3d7cf8474436134a75cfc5ff48b5beff0 (diff) | |
| download | verismith-b9761e43a5995734acb2d8609a6f25891297fd28.tar.gz verismith-b9761e43a5995734acb2d8609a6f25891297fd28.zip | |
Format using brittany
Diffstat (limited to 'src/VeriFuzz/Fuzz.hs')
| -rw-r--r-- | src/VeriFuzz/Fuzz.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/VeriFuzz/Fuzz.hs b/src/VeriFuzz/Fuzz.hs index 19f9dce..4f5c016 100644 --- a/src/VeriFuzz/Fuzz.hs +++ b/src/VeriFuzz/Fuzz.hs @@ -154,7 +154,11 @@ equivalence src = do synth <- passedSynthesis -- let synthComb = -- nubBy tupEq . filter (uncurry (/=)) $ combinations synth synth - let synthComb = nubBy tupEq . filter (uncurry (/=)) $ (,) defaultIdentitySynth <$> synth + let synthComb = + nubBy tupEq + . filter (uncurry (/=)) + $ (,) defaultIdentitySynth + <$> synth results <- liftSh $ mapM (uncurry equiv) synthComb synthResults .= toSynthResult synthComb results liftSh $ inspect results |