X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=c%CE%BBash%2FCLasH%2FVHDL%2FVHDLTypes.hs;fp=c%CE%BBash%2FCLasH%2FVHDL%2FVHDLTypes.hs;h=fbdf4d72932b37daedca11af577526226dec7de8;hb=e90120ffb6999ad931a06fd6c0a3b071408d5945;hp=64fb7ab10bd8d063a9954997946e3e34bfbcb5cb;hpb=e7e80d84bd1cc8cf903dd306be6a6aeba1022057;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git "a/c\316\273ash/CLasH/VHDL/VHDLTypes.hs" "b/c\316\273ash/CLasH/VHDL/VHDLTypes.hs"
index 64fb7ab..fbdf4d7 100644
--- "a/c\316\273ash/CLasH/VHDL/VHDLTypes.hs"
+++ "b/c\316\273ash/CLasH/VHDL/VHDLTypes.hs"
@@ -25,9 +25,9 @@ type Port = (AST.VHDLId, AST.TypeMark)
 -- info on how to map a haskell value (argument / result) on to the entity's
 -- ports.
 data Entity = Entity { 
-  ent_id     :: AST.VHDLId,           -- The id of the entity
-  ent_args   :: [Port],      -- A mapping of each function argument to port names
-  ent_res    :: Port,         -- A mapping of the function result to port names
+  ent_id     :: AST.VHDLId, -- ^ The id of the entity
+  ent_args   :: [Port], -- ^ A port for each non-empty function argument
+  ent_res    :: Port, -- ^ The output port
   ent_dec    :: AST.EntityDec -- ^ The complete entity declaration
 } deriving (Show);