diff options
| author | aarne <aarne@chalmers.se> | 2017-06-02 06:11:44 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2017-06-02 06:11:44 +0000 |
| commit | 9e206496a7f226ec7166874153e348381c37154e (patch) | |
| tree | 67bfcbdd4edaa2208a2ed219f8778fc325cf52a6 | |
| parent | d1eb0aa657e05f035d3679555e1b45401f1e3a25 (diff) | |
handling combination of &+ and &|
| -rw-r--r-- | src/runtime/haskell/PGF/Lexing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Lexing.hs b/src/runtime/haskell/PGF/Lexing.hs index c23a52c97..4dc352792 100644 --- a/src/runtime/haskell/PGF/Lexing.hs +++ b/src/runtime/haskell/PGF/Lexing.hs @@ -34,7 +34,7 @@ bindTok :: [String] -> [String] bindTok ws = case ws of w1:"&+":w2:ws -> bindTok ((w1++w2):ws) "&+":ws -> bindTok ws - "&|":(c:cs):ws-> (toUpper c:cs) : bindTok ws + "&|":(c:cs):ws-> bindTok ((toUpper c:cs) : ws) "&|":ws -> bindTok ws w:ws -> w:bindTok ws [] -> [] |