PGF.Haskell.fromStr: fix double spaces caused by empty tokens

2019-01-23 02:45:23 +01:00
parent e4abff7725
commit fc5c2b5a22
1 changed files with 1 additions and 0 deletions
--- 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