From c544ef31823c7d2c28c28cae408cca5d71e6978d Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@chalmers.se>
Date: Wed, 21 May 2008 13:10:54 +0000
Subject: use ByteString internally in Ident, CId and Label

---
 src-3.0/GF/CF/CFtoGrammar.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src-3.0/GF/CF')

diff --git a/src-3.0/GF/CF/CFtoGrammar.hs b/src-3.0/GF/CF/CFtoGrammar.hs
index 5e73aec31..ebf97db91 100644
--- a/src-3.0/GF/CF/CFtoGrammar.hs
+++ b/src-3.0/GF/CF/CFtoGrammar.hs
@@ -46,7 +46,7 @@ cf2rule :: CFRule -> ((Ident,Info),(Ident,Info))
 cf2rule (fun, (cat, items)) = (def,ldef) where
  f     = cfFun2Ident fun
  def   = (f, AbsFun (yes (mkProd (args', Cn (cfCat2Ident cat), []))) nope)
- args0 = zip (map (mkIdent "x") [0..]) items
+ args0 = zip (map (identV "x") [0..]) items
  args  = [(v, Cn (cfCat2Ident c)) | (v, CFNonterm c) <- args0]
  args' = [(zIdent "_", Cn (cfCat2Ident c)) | (_, CFNonterm c) <- args0]
  ldef  = (f, CncFun 
-- 
cgit v1.2.3