pandoc/man/removeLinks.hs

10 lines
156 B
Haskell
Raw Normal View History

import Text.Pandoc.JSON
main :: IO ()
main = toJSONFilter removeLinks
removeLinks :: Inline -> [Inline]
2016-01-03 00:52:33 +01:00
removeLinks (Link _ l _) = l
removeLinks x = [x]