Fix for #8869 in addition to proper handling of quoted header args in Org

src/Text/Pandoc/Readers/Org/Blocks.hs

@@ -418,12 +418,15 @@ orgParamValue :: Monad m => OrgParser m Text
 orgParamValue = try $ fmap T.pack $
   skipSpaces
     *> notFollowedBy orgArgKey
-    *> noneOf "\n\r" `many1Till` endOfValue
+    *> (quotedValue <|> regularValue)
     <* skipSpaces
  where
   endOfValue = lookAhead $  try (skipSpaces <* oneOf "\n\r")
                         <|> try (skipSpaces1 <* orgArgKey)
 
+  quotedValue = char '\"' *> manyTill anyChar (char '\"')
+
+  regularValue = noneOf "\n\r" `many1Till` endOfValue
 
 --
 -- Drawers

test/Tests/Readers/Org/Block/CodeBlock.hs

@@ -202,4 +202,28 @@ tests =
                     , ("city", "Zürich")
                     ]
       in codeBlockWith ( "", ["c"], params) "code body\n"
+
+  , "Header args with quotes" =:
+     T.unlines [ "#+begin_src haskell :exports \"both\" :tangle \"main.hs\""
+               , "main :: IO ()"
+               , "main = putStrLn \"Hello, World!\""
+               , "#+end_src"
+               ] =?>
+     let params  = [ ("exports", "both")
+                   , ("tangle", "main.hs")
+                   ]
+     in codeBlockWith ("", ["haskell"], params)
+        "main :: IO ()\nmain = putStrLn \"Hello, World!\"\n"
+
+  , "Header args with colon" =:
+     T.unlines [ "#+begin_src haskell :exports \"both\" :session \"my :session\""
+               , "main :: IO ()"
+               , "main = putStrLn \"Hello, World!\""
+               , "#+end_src"
+               ] =?>
+     let params  = [ ("exports", "both")
+                   , ("session", "my :session")
+                   ]
+     in codeBlockWith ("", ["haskell"], params)
+        "main :: IO ()\nmain = putStrLn \"Hello, World!\"\n"
   ]