diff options
| author | Thomas Hallgren <th-github@altocumulus.org> | 2019-01-23 02:45:23 +0100 |
|---|---|---|
| committer | Thomas Hallgren <th-github@altocumulus.org> | 2019-01-23 02:45:23 +0100 |
| commit | fc5c2b5a22f66912c1e5dab97a35c2f229093255 (patch) | |
| tree | 91cec11befd1620826515136fe87e8fb57b1ae2b /src/runtime/haskell/PGF/Haskell.hs | |
| parent | e4abff772556ebee68a7e3b2cbe4fd413a5e845e (diff) | |
PGF.Haskell.fromStr: fix double spaces caused by empty tokens
Diffstat (limited to 'src/runtime/haskell/PGF/Haskell.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/Haskell.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/runtime/haskell/PGF/Haskell.hs b/src/runtime/haskell/PGF/Haskell.hs index 87cecc5d4..8b99a61e1 100644 --- a/src/runtime/haskell/PGF/Haskell.hs +++ b/src/runtime/haskell/PGF/Haskell.hs @@ -33,6 +33,7 @@ fromStr = from False id from space cap ts = case ts of [] -> [] + TK "":ts -> from space cap ts TK s:ts -> put s++from True cap ts BIND:ts -> from False cap ts SOFT_BIND:ts -> from False cap ts |