From 1cdf171251a56baf0867b65a95c9bd59801ff912 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 11 Sep 2009 13:45:34 +0000
Subject: polish the PGF API and make Expr and Type abstract types. Tree is a
 type synonym of Expr

---
 src/GF/Compile/GFCCtoProlog.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Compile/GFCCtoProlog.hs')

diff --git a/src/GF/Compile/GFCCtoProlog.hs b/src/GF/Compile/GFCCtoProlog.hs
index 3e30dccc3..a31fe4b84 100644
--- a/src/GF/Compile/GFCCtoProlog.hs
+++ b/src/GF/Compile/GFCCtoProlog.hs
@@ -163,7 +163,7 @@ instance PLPrint CId where
     plp cid | isLogicalVariable str || 
               cid == wildCId = plVar str
             | otherwise      = plAtom str
-        where str = prCId cid
+        where str = showCId cid
 
 instance PLPrint Literal where
     plp (LStr s) = plp s
-- 
cgit v1.2.3