aboutsummaryrefslogtreecommitdiffstats
path: root/src/VeriFuzz/Config.hs
diff options
context:
space:
mode:
authorYann Herklotz <git@ymhg.org>2019-04-09 17:32:11 +0100
committerYann Herklotz <git@ymhg.org>2019-04-09 17:32:11 +0100
commitaefb46596f3f2302540a83b2be8b042232822a2f (patch)
tree38afcf0c16635e386fff37c496e1ff5740718cb0 /src/VeriFuzz/Config.hs
parentc1a832419a28ac074cbccbeb7060afd22c36d033 (diff)
downloadverismith-aefb46596f3f2302540a83b2be8b042232822a2f.tar.gz
verismith-aefb46596f3f2302540a83b2be8b042232822a2f.zip
Add probabilities to generation of expressions
Diffstat (limited to 'src/VeriFuzz/Config.hs')
-rw-r--r--src/VeriFuzz/Config.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/VeriFuzz/Config.hs b/src/VeriFuzz/Config.hs
index d072e74..ec3fbc1 100644
--- a/src/VeriFuzz/Config.hs
+++ b/src/VeriFuzz/Config.hs
@@ -115,7 +115,7 @@ defaultConfig :: Config
defaultConfig = Config (Probability defModItem defStmnt defExpr) (Property 20 Nothing 3)
where defModItem = ProbModItem 5 1
defStmnt = ProbStatement 5 5 1
- defExpr = ProbExpr 1 1 1 1 1 1 1 1 1
+ defExpr = ProbExpr 1 1 1 1 1 1 0 1 1
twoKey :: Toml.Piece -> Toml.Piece -> Toml.Key
twoKey a b = Toml.Key (a :| [b])