@@ -1090,7 +1090,7 @@ referenceKey = do
1090targetURI :: Monad m => ParserT [Char] st m [Char]
1090targetURI :: Monad m => ParserT [Char] st m [Char]
1091targetURI = do
1091targetURI = do
1092 skipSpaces
1092 skipSpaces
1093− optional newline
1093+ optional $ try $ newline >> notFollowedBy blankline
1094 contents <- trim <$>
1094 contents <- trim <$>
1095 many1 (satisfy (/='\n')
1095 many1 (satisfy (/='\n')
1096 <|> try (newline >> many1 spaceChar >> noneOf " \t\n"))
1096 <|> try (newline >> many1 spaceChar >> noneOf " \t\n"))