Pretty: Fixed chomp so it works inside Prefixed elements.

src/Text/Pandoc/Pretty.hs

@@ -190,12 +190,14 @@ vsep = foldr ($+$) empty
 chomp :: Doc -> Doc
 chomp d = Doc (fromList dl')
   where dl = toList (unDoc d)
-        dl' = reverse $ dropWhile removeable $ reverse dl
+        dl' = reverse $ go $ reverse dl
-        removeable BreakingSpace = True
+        go [] = []
-        removeable CarriageReturn = True
+        go (BreakingSpace : xs) = go xs
-        removeable NewLine = True
+        go (CarriageReturn : xs) = go xs
-        removeable BlankLine = True
+        go (NewLine : xs) = go xs
-        removeable _ = False
+        go (BlankLine : xs) = go xs
+        go (Prefixed s d' : xs) = Prefixed s (chomp d') : xs
+        go xs = xs
 
 outp :: (IsString a, Monoid a)
      => Int -> String -> DocState a