Use uniqueName to make component instantiations unique.

diff --git a/Translator.hs b/Translator.hs
index 713698c70fea58e8447dfbf291f8634ffb8de77d..fe264f7f77d2d279f76daa813f493b784d1a7147 100644 (file)
--- a/Translator.hs
+++ b/Translator.hs
@@ -147,8 +147,9 @@ getInstantiations args outs binds app@(App expr arg) = do
       return $ concat insts
     else do
       HWFunction inports outport <- getHWFunc name
+      appname <- uniqueName "app"
       let comp = AST.CompInsSm
-            (AST.unsafeVHDLBasicId "app")
+            (AST.unsafeVHDLBasicId appname)
             (AST.IUEntity (AST.NSimple (AST.unsafeVHDLBasicId name)))
             (AST.PMapAspect ports)
           ports =