X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=VHDLTypes.hs;h=44696479e6719de98c5f3f67bdcd6aa261b7e808;hb=a8d7c5bd4b745860f321d4315bff0b9efa3cb05c;hp=34a2b503dc4df4c51ef523363f40caf1cb47ce5f;hpb=85ee6f8e10f7dcc73db62a55a07d924bc002f216;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/VHDLTypes.hs b/VHDLTypes.hs
index 34a2b50..4469647 100644
--- a/VHDLTypes.hs
+++ b/VHDLTypes.hs
@@ -7,7 +7,7 @@ import qualified ForSyDe.Backend.VHDL.AST as AST
 
 import FlattenTypes
 
-type VHDLSignalMap = SignalMap AST.VHDLId
+type VHDLSignalMap = SignalMap (AST.VHDLId, AST.TypeMark)
 
 -- A description of a VHDL entity. Contains both the entity itself as well as
 -- info on how to map a haskell value (argument / result) on to the entity's