From 3f39038911a675d91b5147761e16296d3ab25743 Mon Sep 17 00:00:00 2001
From: christiaanb <christiaan.baaij@gmail.com>
Date: Wed, 23 Jun 2010 12:02:12 +0200
Subject: [PATCH] show function id should just be a basic identifier

---
 clash/CLasH/VHDL/Constants.hs | 2 +-
 clash/CLasH/VHDL/VHDLTools.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/clash/CLasH/VHDL/Constants.hs b/clash/CLasH/VHDL/Constants.hs
index 4267e2e..980dcd1 100644
--- a/clash/CLasH/VHDL/Constants.hs
+++ b/clash/CLasH/VHDL/Constants.hs
@@ -353,7 +353,7 @@ showIdString :: String
 showIdString = "show"
 
 showId :: AST.VHDLId
-showId = AST.unsafeVHDLExtId showIdString
+showId = AST.unsafeVHDLBasicId showIdString
 
 -- | write function identifier (from std.textio)
 writeId :: AST.VHDLId
diff --git a/clash/CLasH/VHDL/VHDLTools.hs b/clash/CLasH/VHDL/VHDLTools.hs
index f04c1dc..bc5f497 100644
--- a/clash/CLasH/VHDL/VHDLTools.hs
+++ b/clash/CLasH/VHDL/VHDLTools.hs
@@ -723,7 +723,7 @@ mkVectorShow elemTM vectorTM =
                                                              AST.:-: AST.PrimLit "1"))
     tailRet = AST.ReturnSm (Just $ AST.PrimName $ AST.NSimple resId)
     showSpec  = AST.Function showId [AST.IfaceVarDec vecPar vectorTM, AST.IfaceVarDec parenPar booleanTM] stringTM
-    doShowId  = AST.unsafeVHDLExtId "doshow"
+    doShowId  = AST.unsafeVHDLBasicId "doshow"
     doShowDef = AST.SubProgBody doShowSpec [] [doShowRet]
       where doShowSpec = AST.Function doShowId [AST.IfaceVarDec vecPar vectorTM] 
                                            stringTM
-- 
2.30.2