(lookup id sigmap)
nm = Maybe.fromMaybe
(error $ "Signal not named? This should not happen!")
- (name info)
+ (sigName info)
-- | Create the VHDL AST for an entity
createEntityAST ::
-- TODO: This doesn't work for functions with multiple signatures!
mkVHDLId $ hsFuncName hsfunc
+getLibraryUnits ::
+ (HsFunction, FuncData) -- | A function from the session
+ -> [AST.LibraryUnit] -- | The library units it generates
+
+getLibraryUnits (hsfunc, fdata) =
+ case entity fdata of
+ Nothing -> []
+ Just ent -> case ent_decl ent of
+ Nothing -> []
+ Just decl -> [AST.LUEntity decl]
-- | The VHDL Bit type
bit_ty :: AST.TypeMark