#!/usr/bin/env runhaskell
-- keep-math.hs
-- (c) 2018, Tim Herbstrith
import Text.Pandoc.JSON

main :: IO ()
main = toJSONFilter ignoreMath

ignoreMath :: Inline -> Inline
ignoreMath (Math InlineMath y) = Str $ "$" ++ y ++ "$"
ignoreMath (Math DisplayMath y) = Str $ "$$" ++ y ++ "$$"
ignoreMath x = x