@@ -586,8 +586,9 @@ link = try $ do
586586 char ':'
587587 let stop = if bracketed
588588 then char ']'
589− else lookAhead $ space <|>
590− try (oneOf "!.,;:" *> (space <|> newline))
589+ else lookAhead $ space <|> eof' <|>
590+ try (oneOf "!.,;:" *>
591+ (space <|> newline <|> eof'))
591592 url <- many1Till nonspaceChar stop
592593 let name' = if B.toList name == [Str "$"] then B.str url else name
593594 return $ if attr == nullAttr
@@ -728,3 +729,5 @@ groupedInlineMarkup = try $ do
728729singleton :: a -> [a]
729730singleton x = [x]
730731
732+eof' :: Monad m => ParserT [Char] s m Char
733+eof' = '\n' <$ eof