summaryrefslogtreecommitdiff
path: root/src/Servall/WikiParser.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Servall/WikiParser.hs')
-rw-r--r--src/Servall/WikiParser.hs4
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