diff options
author | Yann Herklotz <git@yannherklotz.com> | 2019-12-26 02:26:06 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2019-12-26 02:26:06 +0100 |
commit | 5f702e3d14ee38d0d6d61659af7362d545ca95bb (patch) | |
tree | a2ac04d3f82b60244446fbc978f381f9c6787b48 /src/Verismith/Reduce.hs | |
parent | 091e0b3c5c0f0959b4bb2bb93c435dbe47071ac9 (diff) | |
download | verismith-5f702e3d14ee38d0d6d61659af7362d545ca95bb.tar.gz verismith-5f702e3d14ee38d0d6d61659af7362d545ca95bb.zip |
Add correct cleaning function back
Diffstat (limited to 'src/Verismith/Reduce.hs')
-rw-r--r-- | src/Verismith/Reduce.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Verismith/Reduce.hs b/src/Verismith/Reduce.hs index 8e3c9d2..d16ac8b 100644 --- a/src/Verismith/Reduce.hs +++ b/src/Verismith/Reduce.hs @@ -575,7 +575,7 @@ reduce fp eval src = >>= redAll "Statements" (const defaultBot) halveStatements -- >>= redAll "Expressions" (const defaultBot) halveExpr >>= red "Remove constants in concat" defaultBot removeConstInConcat - >>= red "Cleaning" defaultBot (pure . cleanSourceInfoAll) + >>= red "Cleaning" defaultBot (pure . removeDecl) where red s bot a = reduce_ fp s a bot eval red' s bot a t = reduce_ fp s (a t) (bot t) eval |