msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

handling combination of &+ and &|

Browse Source
This commit is contained in:
aarne
2017-06-02 06:11:44 +00:00
parent d1eb0aa657
commit 9e206496a7
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Lexing.hs
View File

@@ -34,7 +34,7 @@ bindTok :: [String] -> [String]
bindTok ws = case ws of bindTok ws = case ws of
w1:"&+":w2:ws -> bindTok ((w1++w2):ws) w1:"&+":w2:ws -> bindTok ((w1++w2):ws)
"&+":ws -> bindTok ws "&+":ws -> bindTok ws
"&|":(c:cs):ws-> (toUpper c:cs) : bindTok ws "&|":(c:cs):ws-> bindTok ((toUpper c:cs) : ws)
"&|":ws -> bindTok ws "&|":ws -> bindTok ws
w:ws -> w:bindTok ws w:ws -> w:bindTok ws
[] -> [] [] -> []