diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/VeriFuzz.hs | 7 | ||||
-rw-r--r-- | src/VeriFuzz/Fuzz.hs | 6 |
2 files changed, 9 insertions, 4 deletions
diff --git a/src/VeriFuzz.hs b/src/VeriFuzz.hs index 6a63fe0..66c795f 100644 --- a/src/VeriFuzz.hs +++ b/src/VeriFuzz.hs @@ -328,9 +328,10 @@ randomise config@(Config a _ c d e) = do handleOpts :: Opts -> IO () handleOpts (Fuzz o configF _ _ n) = do config <- getConfig configF - _ <- runFuzz config - defaultYosys - (fuzzMultiple n (Just $ fromText o) (proceduralSrc "top" config)) + _ <- runFuzz + config + defaultYosys + (fuzzMultiple n (Just $ fromText o) (proceduralSrc "top" config)) return () handleOpts (Generate f c) = do config <- getConfig c 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 |