diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-01-04 15:54:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-01-04 15:54:40 +0000 |
| commit | d5500498736ff9cdce7d23e336357742c5799825 (patch) | |
| tree | 53d4fe137e04c79d521fc373d41f5c38eb1bb5e9 /src/GF/Grammar/PatternMatch.hs | |
| parent | 934d4dbd7c922fdc30b0bd6225c0dc44fea16ddb (diff) | |
finalizing experiments with Finnish nouns
Diffstat (limited to 'src/GF/Grammar/PatternMatch.hs')
| -rw-r--r-- | src/GF/Grammar/PatternMatch.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Grammar/PatternMatch.hs b/src/GF/Grammar/PatternMatch.hs index 881f10198..4b69c3ffd 100644 --- a/src/GF/Grammar/PatternMatch.hs +++ b/src/GF/Grammar/PatternMatch.hs @@ -111,6 +111,8 @@ tryMatch (p,t) = do matches <- checks [mapM tryMatch [(p1,K s1),(p2,K s2)] | (s1,s2) <- cuts] return (concat matches) + (PChar, ([],K [_],[])) -> return [] + (PRep p1, ([],K s, [])) -> checks [ trym (foldr (const (PSeq p1)) (PString "") [1..n]) t' | n <- [0 .. length s] |