RST reader: Combine para/plain.

src/Text/Pandoc/Readers/RST.hs

@@ -228,15 +228,16 @@ lineBlock = try $ do
 -- note: paragraph can end in a :: starting a code block
 para :: Parser [Char] ParserState Blocks
 para = try $ do
-  result <- trimInlines . mconcat <$> many inline
+  result <- trimInlines . mconcat <$> many1 inline
-  newline
+  option (B.plain result) $ try $ do
-  blanklines
+    newline
-  case viewr (B.unMany result) of
+    blanklines
-       ys :> (Str xs) | "::" `isSuffixOf` xs -> do
+    case viewr (B.unMany result) of
-            codeblock <- option mempty codeBlockBody
+         ys :> (Str xs) | "::" `isSuffixOf` xs -> do
-            return $ B.para (B.Many ys <> B.str (take (length xs - 1) xs))
+              codeblock <- option mempty codeBlockBody
-                       <> codeblock
+              return $ B.para (B.Many ys <> B.str (take (length xs - 1) xs))
-       _ -> return (B.para result)
+                         <> codeblock
+         _ -> return (B.para result)
 
 plain :: Parser [Char] ParserState Blocks
 plain = B.plain . trimInlines . mconcat <$> many1 inline