diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2019-10-18 14:59:56 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2019-10-18 14:59:56 +0100 |
| commit | 945c7435a41b93ff243b69f18a9c0216a7b70e24 (patch) | |
| tree | 9087a6e87ab704f8a54ac9bba8865df51ca21eb2 /src/Verismith.hs | |
| parent | e014fac05e6aab6bf686d3a002ca21e7adb13072 (diff) | |
| download | verismith-945c7435a41b93ff243b69f18a9c0216a7b70e24.tar.gz verismith-945c7435a41b93ff243b69f18a9c0216a7b70e24.zip | |
Add -k functionality
Diffstat (limited to 'src/Verismith.hs')
| -rw-r--r-- | src/Verismith.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Verismith.hs b/src/Verismith.hs index 85deca3..a3d3d03 100644 --- a/src/Verismith.hs +++ b/src/Verismith.hs @@ -363,12 +363,12 @@ randomise config@(Config a _ c d e) = do ce = config ^. configProbability . probExpr handleOpts :: Opts -> IO () -handleOpts (Fuzz o configF _ _ n) = do +handleOpts (Fuzz o configF _ k n) = do config <- getConfig configF _ <- runFuzz config defaultYosys - (fuzzMultiple n (Just $ fromText o) (proceduralSrc "top" config)) + (fuzzMultiple n k (Just $ fromText o) (proceduralSrc "top" config)) return () handleOpts (Generate f c) = do config <- getConfig c |