[server] restoring inline spaces in wikiparser

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Servall/WikiParser.hs b/src/Servall/WikiParser.hs
index 56f2d94..7aad4ef 100644
--- a/src/Servall/WikiParser.hs
+++ b/src/Servall/WikiParser.hs
@@ -140,7 +140,7 @@ tempFieldP = do
 -- parse a field value
 tempFieldValueP :: Parser Text
 tempFieldValueP = do
-  T.concat <$> many'
+  (T.unwords . T.words . T.concat) <$> many'
     (choice
       [ skipRefP
       , renderInfoTemplate <$> templateP
@@ -164,7 +164,7 @@ tempFieldValueP = do
         <|> (string "<ref>")
         )
       )
-    if T.null t then fail "simpleP" else return $ T.unwords $ T.words t
+    if T.null t then fail "simpleP" else return t
 
 commentP :: Parser ()
 commentP = do