Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Shared: Generalized type of removeFormatting.

Browse source
This commit is contained in:
John MacFarlane 2014-07-13 14:56:20 -07:00
parent 5df812f7eb
commit 5dba2e2192
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Shared.hs
View file

@ -495,7 +495,7 @@ normalizeInlines (x : xs) = x : normalizeInlines xs
normalizeInlines [] = []
-- | Remove inline formatting from a list of inlines.
removeFormatting :: [Inline] -> [Inline]
removeFormatting :: Walkable Inline a => a -> [Inline]
removeFormatting = query go . walk deNote
where go :: Inline -> [Inline]
go (Str xs) = [Str xs]