From 88b09b8ae0d5b239d2c4fbb17d83778df12db618 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 6 Jan 2006 21:49:25 +0000 Subject: concatenation string patterns --- src/GF/Source/SourceToGrammar.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/GF/Source/SourceToGrammar.hs') diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs index cfd8ae827..97f8fbc75 100644 --- a/src/GF/Source/SourceToGrammar.hs +++ b/src/GF/Source/SourceToGrammar.hs @@ -521,6 +521,8 @@ transPatts :: Patt -> Err [G.Patt] transPatts p = case p of PDisj p1 p2 -> liftM2 (++) (transPatts p1) (transPatts p2) PC id patts -> liftM (map (G.PC id) . combinations) $ mapM transPatts patts + PQC q id patts -> liftM (map (G.PP q id) . combinations) (mapM transPatts patts) + PR pattasss -> do let (lss,ps) = unzip [(ls,p) | PA ls p <- pattasss] ls = map LIdent $ concat lss -- cgit v1.2.3