@@ -151,8 +151,7 @@ htmlAttribute = htmlRegularAttribute <|> htmlMinimizedAttribute
151151htmlMinimizedAttribute = try $ do
152152 many1 space
153153 name <- many1 (choice [letter, oneOf ".-_:"])
154− spaces
155− notFollowedBy (char '=')
154+ notFollowedBy (spaces >> char '=')
156155 let content = name
157156 return (name, content, (" " ++ name))
158157
@@ -319,19 +318,13 @@ hrule = try $ do
319318-- code blocks
320319--
321320
322−codeBlock = preCodeBlock <|> bareCodeBlock <?> "code block"
323−
324−preCodeBlock = try $ do
321+codeBlock = try $ do
325322 htmlTag "pre"
326323 spaces
327− result <- bareCodeBlock
328− spaces
329− htmlEndTag "pre"
330− return result
331−
332−bareCodeBlock = try $ do
333324 htmlTag "code"
334325 result <- manyTill anyChar (htmlEndTag "code")
326+ spaces
327+ htmlEndTag "pre"
335328 return $ CodeBlock $ stripTrailingNewlines $
336329 decodeCharacterReferences result
337330