diff options
| author | aarne <aarne@chalmers.se> | 2010-03-28 20:32:03 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-28 20:32:03 +0000 |
| commit | ccac96eaa0a735612bc2dc4bc8a040c6b354eb54 (patch) | |
| tree | 8818371783946a2e9be48f742ecee1eea452eca1 /src/server | |
| parent | 55f8a80df7f9591475af5e42b2f50ced55d51d30 (diff) | |
catching initial bind symbol in PGFServer
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/PGFService.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index b8c8f7aff..510aa8bd5 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -147,6 +147,7 @@ doTranslateGroup pgf input mcat mfrom mto = _ -> s bind ws = case ws of w : "&+" : u : ws2 -> bind ((w ++ u) : ws2) + "&+":ws2 -> bind ws2 w : ws2 -> w : bind ws2 _ -> ws langOnly = reverse . take 3 . reverse |