+
+-- | Transforms a flat function application to a VHDL component instantiation.
+mkCompInsSm ::
+ FApp UnnamedSignal -- | The application to look at.
+ -> AST.CompInsSm -- | The corresponding VHDL component instantiation.
+
+mkCompInsSm app =
+ AST.CompInsSm label (AST.IUEntity (AST.NSimple entity_id)) (AST.PMapAspect portmaps)
+ where
+ entity_id = mkVHDLId "foo"
+ label = mkVHDLId "app"
+ portmaps = []
+