From 82c1a70cfb9b13f09cd8ee28c79ab99d3448280d Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 8 Aug 2025 13:55:39 +0200 Subject: [PATCH] allow patterns inside pre to contain concatenation --- 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 952c65730..ce65033fd 100644 --- a/src/compiler/api/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/api/GF/Compile/GeneratePMCFG.hs @@ -230,6 +230,7 @@ str2lin v0@(VAlts def alts) to_str _ = fail 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 _ = fail