diff options
Diffstat (limited to 'src/Servall')
| -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  | 
