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/UseGrammar/Editing.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src-3.0/GF/UseGrammar/Editing.hs b/src-3.0/GF/UseGrammar/Editing.hs
index 762562eb0..85fee1be4 100644
--- a/src-3.0/GF/UseGrammar/Editing.hs
+++ b/src-3.0/GF/UseGrammar/Editing.hs
@@ -20,7 +20,6 @@ import qualified GF.Canon.GFC as GFC
 import GF.Grammar.TypeCheck
 import GF.Grammar.LookAbs
 import GF.Grammar.AbsCompute
-import GF.Grammar.Macros (errorCat)
 
 import GF.Data.Operations
 import GF.Data.Zipper
@@ -51,7 +50,7 @@ actVal :: State -> Val
 actVal = valNode . nodeTree . actTree
 
 actCat :: State -> Cat
-actCat = errVal errorCat . val2cat . actVal ---- undef
+actCat = errVal (cMeta,cMeta) . val2cat . actVal ---- undef
 
 actAtom :: State -> Atom
 actAtom = atomTree . actTree
-- 
cgit v1.2.3