From 58a096c0584bfa5e7c0992934a17fec280e64ba8 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 11 Sep 2012 20:47:07 -0700 Subject: Text.Pandoc.Parsing: Handle trailing slash in 'uri'. --- src/Text/Pandoc/Parsing.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index d677f7a16..d4a1afbec 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -379,10 +379,11 @@ uri = try $ do char ')' return $ '(' : res ++ ")" str <- liftM concat $ many1 $ inParens <|> count 1 (innerPunct <|> uriChar) + str' <- option str $ char '/' >> return (str ++ "/") -- now see if they amount to an absolute URI - case parseURI (escapeURI str) of + case parseURI (escapeURI str') of Just uri' -> if uriScheme uri' `elem` protocols - then return (str, show uri') + then return (str', show uri') else fail "not a URI" Nothing -> fail "not a URI" -- cgit v1.2.3