GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-13 14:59:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

documenting regular patterns

Browse Source
This commit is contained in:
aarne
2006-01-07 15:42:13 +00:00
parent d133e0353c
commit 00ea4e3dcd
2 changed files with 44 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Grammar/PatternMatch.hs
View File

@@ -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