import Text.Pandoc.JSON
main :: IO ()
main = toJSONFilter removeLinks
removeLinks :: Inline -> [Inline]
removeLinks (Link _ l _) = l
removeLinks x = [x]