@@ -336,7 +336,7 @@ preformatted = try $ do
336 (htmlTag (~== TagOpen "nowiki" []) *>
336 (htmlTag (~== TagOpen "nowiki" []) *>
337 manyTill anyChar (htmlTag (~== TagClose "nowiki")))
337 manyTill anyChar (htmlTag (~== TagClose "nowiki")))
338 let inline' = whitespace' <|> endline' <|> nowiki'
338 let inline' = whitespace' <|> endline' <|> nowiki'
339− <|> (notFollowedBy newline *> inline)
339+ <|> (try $ notFollowedBy newline *> inline)
340 let strToCode (Str s) = Code ("",[],[]) s
340 let strToCode (Str s) = Code ("",[],[]) s
341 strToCode x = x
341 strToCode x = x
342 contents <- mconcat <$> many1 inline'
342 contents <- mconcat <$> many1 inline'