X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=VHDLTypes.hs;h=3a8bce12f88e4fef661449443dd72a4d0c05e20a;hb=dc8d74dc0d01f63599da8e866066656fa2fbd28a;hp=59da9c17341dfc1d63f70f89673159071848055a;hpb=12fc969daa4ca2dfc69ab68f27684dd6b01622f3;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/VHDLTypes.hs b/VHDLTypes.hs
index 59da9c1..3a8bce1 100644
--- a/VHDLTypes.hs
+++ b/VHDLTypes.hs
@@ -75,7 +75,7 @@ type VHDLSession = State.State VHDLState
 -- | A substate containing just the types
 type TypeState = State.State TypeMap
 
-type Builder = Either ([AST.Expr] -> AST.Expr) (Entity -> [CoreSyn.CoreBndr] -> AST.GenerateSm)
+type Builder = Either ([AST.Expr] -> VHDLSession AST.Expr) (Entity -> [CoreSyn.CoreBndr] -> VHDLSession AST.GenerateSm)
 
 -- A map of a builtin function to VHDL function builder 
 type NameTable = Map.Map String (Int, Builder )