diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-01-07 15:42:13 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-01-07 15:42:13 +0000 |
| commit | 00ea4e3dcd0dda6c8353e4134d8ddf106e1d18e7 (patch) | |
| tree | 8684af90411395398d30b2d6eed0322c8e8c4734 /src/GF | |
| parent | d133e0353ca614b36357dadb782aea43de895e09 (diff) | |
documenting regular patterns
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Grammar/PatternMatch.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Grammar/PatternMatch.hs b/src/GF/Grammar/PatternMatch.hs index f850981f0..2724bd263 100644 --- a/src/GF/Grammar/PatternMatch.hs +++ b/src/GF/Grammar/PatternMatch.hs @@ -105,7 +105,7 @@ tryMatch (p,t) = do return (concat matches) (PRep p1, ([],K s, [])) -> checks [ - trym (foldr (const (PSeq p1)) (PString "") [0..n]) t' | n <- [1 .. length s] + trym (foldr (const (PSeq p1)) (PString "") [1..n]) t' | n <- [0 .. length s] ] _ -> prtBad "no match in case expr for" t |