git.iko.soy/typeable/pandoc
on 34412cf help sign in
typeable/pandoc/man/removeLinks.hs
9 lines 156 B history raw
1import Text.Pandoc.JSON
3main :: IO ()
4main = toJSONFilter removeLinks
6removeLinks :: Inline -> [Inline]
7removeLinks (Link _ l _) = l
8removeLinks x = [x]