summaryrefslogtreecommitdiff
path: root/src-3.0/GF/Compile/RemoveLiT.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src-3.0/GF/Compile/RemoveLiT.hs')
-rw-r--r--src-3.0/GF/Compile/RemoveLiT.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src-3.0/GF/Compile/RemoveLiT.hs b/src-3.0/GF/Compile/RemoveLiT.hs
index 28aae9b84..02ff58bc7 100644
--- a/src-3.0/GF/Compile/RemoveLiT.hs
+++ b/src-3.0/GF/Compile/RemoveLiT.hs
@@ -23,6 +23,7 @@ import GF.Infra.Ident
import GF.Infra.Modules
import GF.Grammar.Macros
import GF.Grammar.Lookup
+import GF.Grammar.Predef
import GF.Data.Operations
@@ -60,4 +61,4 @@ remlTerm gr trm = case trm of
look c = err (const $ return defLinType) return $ lookupLincat gr m c
m = case [cnc | (cnc,ModMod m) <- modules gr, isModCnc m] of
cnc:_ -> cnc -- actually there is always exactly one
- _ -> zIdent "CNC"
+ _ -> cCNC