68c95f4 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Pretty: Fixed chomp so it works inside Prefixed elements.

68c95f4John MacFarlane14 years ago

src/Text/Pandoc/Pretty.hs+8−6

@@ -190,12 +190,14 @@ vsep = foldr ($+$) empty

190chomp :: Doc -> Doc

191chomp d = Doc (fromList dl')

192 where dl = toList (unDoc d)

193− dl' = reverse $ dropWhile removeable $ reverse dl

193+ dl' = reverse $ go $ reverse dl

194+ go [] = []

194− removeable BreakingSpace = True

195+ go (BreakingSpace : xs) = go xs

195− removeable CarriageReturn = True

196+ go (CarriageReturn : xs) = go xs

196− removeable NewLine = True

197+ go (NewLine : xs) = go xs

197− removeable BlankLine = True

198+ go (BlankLine : xs) = go xs

198− removeable _ = False

199+ go (Prefixed s d' : xs) = Prefixed s (chomp d') : xs

200+ go xs = xs

199

201

200outp :: (IsString a, Monoid a)

202outp :: (IsString a, Monoid a)

201 => Int -> String -> DocState a

203 => Int -> String -> DocState a