flatFunc :: Maybe FlatFunction,
funcEntity :: Maybe Entity,
funcArch :: Maybe AST.ArchBody
flatFunc :: Maybe FlatFunction,
funcEntity :: Maybe Entity,
funcArch :: Maybe AST.ArchBody
data VHDLSession = VHDLSession {
coreMod :: HscTypes.CoreModule, -- The current module
data VHDLSession = VHDLSession {
coreMod :: HscTypes.CoreModule, -- The current module
-- | Modify the function map in the session using the given function
modFuncMap :: (FuncMap -> FuncMap) -> VHDLState ()
modFuncMap f = do
-- | Modify the function map in the session using the given function
modFuncMap :: (FuncMap -> FuncMap) -> VHDLState ()
modFuncMap f = do