dd5cb82 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Generalized type of stringify.

dd5cb82John MacFarlane13 years ago

src/Text/Pandoc/Shared.hs+4−3

@@ -1,4 +1,5 @@

1−{-# LANGUAGE DeriveDataTypeable, CPP, MultiParamTypeClasses #-}

1+{-# LANGUAGE DeriveDataTypeable, CPP, MultiParamTypeClasses,

2+ FlexibleContexts #-}

2{-

3{-

@@ -383,10 +384,10 @@ consolidateInlines (Code a1 x : Code a2 y : zs) | a1 == a2 =

383consolidateInlines (x : xs) = x : consolidateInlines xs

384consolidateInlines (x : xs) = x : consolidateInlines xs

384consolidateInlines [] = []

385consolidateInlines [] = []

385

386

386−-- | Convert list of inlines to a string with formatting removed.

387+-- | Convert pandoc structure to a string with formatting removed.

387-- Footnotes are skipped (since we don't want their contents in link

388-- Footnotes are skipped (since we don't want their contents in link

388-- labels).

389-- labels).

389−stringify :: [Inline] -> String

390+stringify :: Walkable Inline a => a -> String

390stringify = query go . walk deNote

391stringify = query go . walk deNote

391 where go :: Inline -> [Char]

392 where go :: Inline -> [Char]

392 go Space = " "

393 go Space = " "