@@ -56,7 +56,6 @@ readMarkdown state str = (readWith parseMarkdown) state (str ++ "\n\n")
5656spaceChars = " \t"
5757bulletListMarkers = "*+-"
5858hruleChars = "*-_"
59−titleOpeners = "\"'("
6059setextHChars = "=-"
6160
6261-- treat these as potentially non-text when parsing inline:
@@ -185,8 +184,7 @@ referenceKey = try $ do
185184 return $ replicate (sourceLine endPos - sourceLine startPos) '\n'
186185
187186referenceTitle = try $ do
188− skipSpaces
189− optional newline
187+ (many1 spaceChar >> option '\n' newline) <|> newline
190188 skipSpaces
191189 tit <- (charsInBalanced '(' ')' >>= return . unwords . words)
192190 <|> do delim <- char '\'' <|> char '"'
@@ -831,8 +829,7 @@ source = try $ do
831829 return (removeTrailingSpace src, tit)
832830
833831linkTitle = try $ do
834− skipSpaces
835− optional newline
832+ (many1 spaceChar >> option '\n' newline) <|> newline
836833 skipSpaces
837834 delim <- char '\'' <|> char '"'
838835 tit <- manyTill anyChar (try (char delim >> skipSpaces >>