From d6a6a352aea4dee6c244fe204d0ed7ef96d27e9b Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Wed, 13 Aug 2025 12:18:59 +0200 Subject: [PATCH] support for PChars inside pre --- src/compiler/api/GF/Compile/GeneratePMCFG.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/compiler/api/GF/Compile/GeneratePMCFG.hs b/src/compiler/api/GF/Compile/GeneratePMCFG.hs index ce65033fd..0ff244c3d 100644 --- a/src/compiler/api/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/api/GF/Compile/GeneratePMCFG.hs @@ -232,6 +232,7 @@ str2lin v0@(VAlts def alts) from_patt (PAlt p1 p2) = liftM2 (++) (from_patt p1) (from_patt p2) from_patt (PSeq _ _ p1 _ _ p2) = liftM2 (liftM2 (++)) (from_patt p1) (from_patt p2) from_patt (PString s) = return [s] + from_patt (PChars cs) = return (map (:[]) cs) from_patt _ = fail fail = evalError ("Complex patterns are not supported in:" $$ nest 2 (pp (showValue v0)))