fix redeclaration of implicitly typed ports

This commit is contained in:
Zachary Snow 2020-09-28 19:59:43 -04:00
parent 34171c351e
commit 5eaecc6635
1 changed files with 1 additions and 2 deletions

View File

@ -40,12 +40,11 @@ traverseDescription defaultNetType other = (defaultNetType, other)
traverseDeclM :: Decl -> Scoper () Decl
traverseDeclM decl = do
case decl of
Variable _ t x _ _ -> when (t /= unknownType) $ insertElem x ()
Variable _ _ x _ _ -> insertElem x ()
Param _ _ x _ -> insertElem x ()
ParamType{} -> return ()
CommentDecl{} -> return ()
return decl
where unknownType = Implicit Unspecified []
traverseModuleItemM :: DefaultNetType -> ModuleItem -> Scoper () ModuleItem
traverseModuleItemM _ (Genvar x) =