From 5eaecc6635d8eba2f2f55448bd5318d186d01e6b Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Mon, 28 Sep 2020 19:59:43 -0400 Subject: [PATCH] fix redeclaration of implicitly typed ports --- src/Convert/ImplicitNet.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Convert/ImplicitNet.hs b/src/Convert/ImplicitNet.hs index c71c250..290afe4 100644 --- a/src/Convert/ImplicitNet.hs +++ b/src/Convert/ImplicitNet.hs @@ -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) =