diff options
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 6df398d..267dddb 100644 --- a/src/Verismith/Reduce.hs +++ b/src/Verismith/Reduce.hs @@ -656,7 +656,7 @@ reduce :: -- | Reduced output. m (SourceInfo ()) reduce fp eval rsrc = - fmap (clearAnn . removeDecl) $ + fmap clearAnn $ red "Modules" id id halveModules moduleBot src >>= redAll "Module items" idTag idTag halveModItems modItemBot >>= redAll "Statements" tagAlways untagAlways halveStatements (const defaultBot) |