#!/usr/bin/env stack {- stack runghc --verbosity info --package pandoc-types -} import Text.Pandoc.Builder import Text.Pandoc.JSON main :: IO () main = toJSONFilter dropManBlocks dropManBlocks :: Block -> Block dropManBlocks (Div ("",["man"],[]) _) = Plain [] dropManBlocks x = x