From 5f702e3d14ee38d0d6d61659af7362d545ca95bb Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Thu, 26 Dec 2019 02:26:06 +0100 Subject: Add correct cleaning function back --- src/Verismith/Reduce.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Verismith/Reduce.hs') 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 -- cgit