diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-01-06 21:49:25 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-01-06 21:49:25 +0000 |
| commit | 88b09b8ae0d5b239d2c4fbb17d83778df12db618 (patch) | |
| tree | 057a11bda78fb5841c286a601c66608008eee065 /src/GF/Source/SourceToGrammar.hs | |
| parent | 3bf8e5ce6fbc026fd045762fbbf63eee58f09367 (diff) | |
concatenation string patterns
Diffstat (limited to 'src/GF/Source/SourceToGrammar.hs')
| -rw-r--r-- | src/GF/Source/SourceToGrammar.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |