aboutsummaryrefslogtreecommitdiff
path: root/man/removeLinks.hs
blob: d4508e7a368e0273d8c1668e6d323a880719c62f (plain)
1
2
3
4
5
6
7
8
9
import Text.Pandoc.JSON

main :: IO ()
main = toJSONFilter removeLinks

removeLinks :: Inline -> [Inline]
removeLinks (Link l _) = l
removeLinks x = [x]