Commit df7277a6 by Zachary Snow

simplification applies to exprs in decls

parent 543a1046
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment