diff options
| -rw-r--r-- | src/Servall/WikiParser.hs | 4 |
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 |