From d5500498736ff9cdce7d23e336357742c5799825 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 4 Jan 2008 15:54:40 +0000 Subject: finalizing experiments with Finnish nouns --- src/GF/Source/GrammarToSource.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/GF/Source/GrammarToSource.hs') diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs index 0a2715be0..9ad8b8850 100644 --- a/src/GF/Source/GrammarToSource.hs +++ b/src/GF/Source/GrammarToSource.hs @@ -219,6 +219,7 @@ trp p = case p of PSeq p q -> P.PSeq (trp p) (trp q) PRep p -> P.PRep (trp p) PNeg p -> P.PNeg (trp p) + PChar -> P.PV (IC "C_") ---- temporary encoding trAssign (lab, (mty, t)) = maybe (P.LDDef x t') (\ty -> P.LDFull x (trt ty) t') mty -- cgit v1.2.3