From 1e0d7be4f4322836093d744c916fe02bfbcf9418 Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 11 May 2015 13:01:39 +0000 Subject: added all orthographic primitives --- src/compiler/GF/Compile/GeneratePMCFG.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Compile/GeneratePMCFG.hs') diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs index 4aefd3b5f..f0c256775 100644 --- a/src/compiler/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/GF/Compile/GeneratePMCFG.hs @@ -385,14 +385,18 @@ convertTerm opts sel ctype (Alts s alts)= do CStr s <- convertTerm opts CNil cty _ -> fail (render ("not valid pattern in pre expression" <+> ppPatt Unqualified 0 p)) convertTerm opts sel ctype (Q (m,f)) - | m == cPredef && - f == cNonExist = return (CStr [SymNE]) | m == cPredef && f == cBIND = return (CStr [SymBIND]) | m == cPredef && f == cSOFT_BIND = return (CStr [SymSOFT_BIND]) + | m == cPredef && + f == cSOFT_SPACE = return (CStr [SymSOFT_SPACE]) | m == cPredef && f == cCAPIT = return (CStr [SymCAPIT]) + | m == cPredef && + f == cALL_CAPIT = return (CStr [SymALL_CAPIT]) + | m == cPredef && + f == cNonExist = return (CStr [SymNE]) {- convertTerm opts sel@(CProj l _) ctype (ExtR t1 t2@(R rs2)) | l `elem` map fst rs2 = convertTerm opts sel ctype t2 -- cgit v1.2.3