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

matching with ""

Browse Source
This commit is contained in:
aarne
2005-11-18 14:24:12 +00:00
parent 524c4829f9
commit 7c6210d6e6
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -59,6 +59,7 @@ tryMatch (p,t) = do
(PV IW, _) | isInConstantForm t -> return [] -- optimization with wildcard
(PV x, _) | isInConstantForm t -> return [(x,t)]
(PString s, ([],K i,[])) | s==i -> return []
(PString "",([],Empty,[])) -> return [] -- because "" = [""] = []
(PInt s, ([],EInt i,[])) | s==i -> return []
(PC p pp, ([], Con f, tt)) |
p `eqStrIdent` f && length pp == length tt ->