Make listBind also show the type of the bind.

[matthijs/master-project/cλash.git] / VHDL.hs

diff --git a/VHDL.hs b/VHDL.hs
index 572e221b4abb120e94d4871489e5f94b92f1be81..c952dddf5e2f6a9485e2fdf076a1a0bd6eb057d2 100644 (file)
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -375,6 +375,7 @@ mk_fsvec_ty ty args = do
   let range = AST.IndexConstraint [AST.ToRange (AST.PrimLit "0") (AST.PrimLit "16")]
   let ty_def = AST.TDA $ AST.ConsArrayDef range std_logic_ty
   let ty_dec = AST.TypeDec ty_id ty_def
+  -- TODO: Check name uniqueness
   State.modify (Map.insert (OrdType ty) (ty_id, ty_dec))
   return ty_id