Updated filter for man pages.

This commit is contained in:
John MacFarlane 2016-01-02 15:52:33 -08:00
parent 4edd1a7873
commit b5d9798618

View file

@ -4,6 +4,6 @@ main :: IO ()
main = toJSONFilter removeLinks main = toJSONFilter removeLinks
removeLinks :: Inline -> [Inline] removeLinks :: Inline -> [Inline]
removeLinks (Link l _) = l removeLinks (Link _ l _) = l
removeLinks x = [x] removeLinks x = [x]