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