diff options
author | Yann Herklotz <git@ymhg.org> | 2019-04-03 19:54:08 +0100 |
---|---|---|
committer | Yann Herklotz <git@ymhg.org> | 2019-04-03 19:54:08 +0100 |
commit | 3786929d0025b32852fd2eaa1eb281ed60a1d84b (patch) | |
tree | a79834523a2564110e56c3fbc17fc86ad3110ff2 /src/VeriFuzz/Config.hs | |
parent | 31325e890e8a7807ec5a3d996c3789baad0e8dc4 (diff) | |
download | verismith-3786929d0025b32852fd2eaa1eb281ed60a1d84b.tar.gz verismith-3786929d0025b32852fd2eaa1eb281ed60a1d84b.zip |
Fix infinite loop in state based generation
Diffstat (limited to 'src/VeriFuzz/Config.hs')
-rw-r--r-- | src/VeriFuzz/Config.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/VeriFuzz/Config.hs b/src/VeriFuzz/Config.hs index b8a1062..d812248 100644 --- a/src/VeriFuzz/Config.hs +++ b/src/VeriFuzz/Config.hs @@ -75,7 +75,7 @@ defaultValue defaultValue x = Toml.dimap Just (fromMaybe x) . Toml.dioptional defaultConfig :: Config -defaultConfig = Config (Probability 10 1 5 1 1) (Property 50 Nothing 3) +defaultConfig = Config (Probability 5 1 5 1 1) (Property 20 Nothing 3) twoKey :: Toml.Piece -> Toml.Piece -> Toml.Key twoKey a b = Toml.Key (a :| [b]) |