@@ -435,9 +435,11 @@ verseBlock blockType = try $ do
435 parseVerseLine :: String -> OrgParser (F Inlines)
435 parseVerseLine :: String -> OrgParser (F Inlines)
436 parseVerseLine cs = do
436 parseVerseLine cs = do
437 let (initialSpaces, indentedLine) = span isSpace cs
437 let (initialSpaces, indentedLine) = span isSpace cs
438+ let nbspIndent = if null initialSpaces
438− let nbspIndent = B.str $ map (const '\160') initialSpaces
440+ else B.str $ map (const '\160') initialSpaces
439 line <- parseFromString inlines (indentedLine ++ "\n")
441 line <- parseFromString inlines (indentedLine ++ "\n")
440− return (pure nbspIndent <> line)
442+ return (trimInlinesF $ pure nbspIndent <> line)
442-- | Read a code block and the associated results block if present. Which of
444-- | Read a code block and the associated results block if present. Which of
443-- boths blocks is included in the output is determined using the "exports"
445-- boths blocks is included in the output is determined using the "exports"