diff options
author | Yann Herklotz <git@yannherklotz.com> | 2019-05-20 17:00:56 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2019-05-20 17:00:56 +0100 |
commit | d9258cd3d7cf8474436134a75cfc5ff48b5beff0 (patch) | |
tree | f06329969da3a81a698ce7ca7225ea559d8144e4 /src/VeriFuzz.hs | |
parent | a6c69c67a9d3923443fccad77293c365f4bbc0d3 (diff) | |
download | verismith-d9258cd3d7cf8474436134a75cfc5ff48b5beff0.tar.gz verismith-d9258cd3d7cf8474436134a75cfc5ff48b5beff0.zip |
Only compare against the identity synth
Diffstat (limited to 'src/VeriFuzz.hs')
-rw-r--r-- | src/VeriFuzz.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/VeriFuzz.hs b/src/VeriFuzz.hs index 7b79633..6a63fe0 100644 --- a/src/VeriFuzz.hs +++ b/src/VeriFuzz.hs @@ -326,11 +326,11 @@ randomise config@(Config a _ c d e) = do ce = config ^. configProbability . probExpr handleOpts :: Opts -> IO () -handleOpts (Fuzz _ configF _ _ n) = do +handleOpts (Fuzz o configF _ _ n) = do config <- getConfig configF _ <- runFuzz config defaultYosys - (fuzzMultiple n Nothing (proceduralSrc "top" config)) + (fuzzMultiple n (Just $ fromText o) (proceduralSrc "top" config)) return () handleOpts (Generate f c) = do config <- getConfig c |