From df7277a6a0975c725b7e137a81af3e8c04f73baf Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Sun, 5 Apr 2020 22:13:19 -0400 Subject: [PATCH] simplification applies to exprs in decls --- src/Convert/Simplify.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Convert/Simplify.hs b/src/Convert/Simplify.hs index f963d93..c19a326 100644 --- a/src/Convert/Simplify.hs +++ b/src/Convert/Simplify.hs @@ -36,7 +36,10 @@ traverseDeclM decl = do case decl of Param Localparam _ x e -> modify $ Map.insert x e _ -> return () - return decl + let mi = MIPackageItem $ Decl decl + mi' <- traverseModuleItemM mi + let MIPackageItem (Decl decl') = mi' + return decl' traverseModuleItemM :: ModuleItem -> State Info ModuleItem traverseModuleItemM item = traverseExprsM traverseExprM item