@@ -650,16 +650,14 @@ isHtmlOrBlank _ = False
650650
651651para :: GenParser Char ParserState Block
652652para = try $ do
653− result <- many1 inline
654− if all isHtmlOrBlank result
655− then fail "treat as raw HTML"
656− else return ()
657− newline
658− blanklines <|> do st <- getState
659− if stateStrict st
660− then lookAhead (blockQuote <|> header) >> return ""
661− else pzero
662− return $ Para $ normalizeSpaces result
653+ result <- liftM normalizeSpaces $ many1 inline
654+ guard $ not . all isHtmlOrBlank $ result
655+ option (Plain result) $ try $ do
656+ newline
657+ blanklines <|>
658+ (getState >>= guard . stateStrict >>
659+ lookAhead (blockQuote <|> header) >> return "")
660+ return $ Para result
663661
664662plain :: GenParser Char ParserState Block
665663plain = many1 inline >>~ spaces >>= return . Plain . normalizeSpaces