From fc5c2b5a22f66912c1e5dab97a35c2f229093255 Mon Sep 17 00:00:00 2001
From: Thomas Hallgren <th-github@altocumulus.org>
Date: Wed, 23 Jan 2019 02:45:23 +0100
Subject: [PATCH] PGF.Haskell.fromStr: fix double spaces caused by empty tokens

---
 src/runtime/haskell/PGF/Haskell.hs | 1 +
 1 file changed, 1 insertion(+)

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