1 files changed, 2 insertions, 10 deletions
diff --git a/src/Zettel/Math.hs b/src/Zettel/Math.hs
index 226f515..3e51437 100644
--- a/src/Zettel/Math.hs
+++ b/src/Zettel/Math.hs
@@ -1,8 +1,6 @@
-{-# LANGUAGE OverloadedRecordDot #-}
-
 module Zettel.Math where
 
-import Text.Pandoc.Definition (Inline (..), Pandoc (..))
+import Text.Pandoc.Definition (Inline (..))
 import Text.Pandoc.Walk (walk)
 import Zettel.Types
 
@@ -13,11 +11,5 @@ wrapMath = concatMap f
     f m@(Math _ _) = [RawInline "markdown" "{{< math >}}", m, RawInline "markdown" "{{< /math >}}"]
     f a = [a]
 
-wrapMathPandoc :: Pandoc -> Pandoc
-wrapMathPandoc = walk wrapMath
-
-wrapZettel :: Zettel -> Zettel
-wrapZettel z = z {zettelBody = wrapMathPandoc z.zettelBody}
-
 wrapZettelGraph :: ZettelGraph -> ZettelGraph
-wrapZettelGraph = ZettelGraph . fmap wrapZettel . unZettelGraph
+wrapZettelGraph = walk wrapMath