@@ -62,7 +62,7 @@ port =
62 do try (reserved "port")
62 do try (reserved "port")
63 whitespace
63 whitespace
64 name <- lowVar
64 name <- lowVar
65− whitespace
65+ padded hasType
66 tipe <- Type.expr <?> "a type"
66 tipe <- Type.expr <?> "a type"
67 return (D.Port name tipe)
67 return (D.Port name tipe)