1 files changed, 6 insertions, 6 deletions

diff --git a/src/Site.hs b/src/Site.hs
index 03b6e16..bf501d8 100644
--- a/src/Site.hs
+++ b/src/Site.hs
@@ -214,16 +214,16 @@ texTransform :: Pandoc -> Compiler Pandoc
 texTransform = walkM texTransformInline <=< walkM texTransformBlock
   where
     texTransformInline :: Inline -> Compiler Inline
-    texTransformInline (Math mathType tex) = (\html -> Span ("", [classOf mathType], []) [RawInline "html" html]) <$> texTransform' (wrapMath tex)
-    texTransformInline (RawInline "latex" tex) = (\html -> Span ("", [], []) [RawInline "html" html]) <$> texTransform' tex
+    texTransformInline (Math mathType tex) = (\html -> Span ("", [classOf mathType], []) [RawInline "html" html]) <$> texTransform' wrapMath tex
+    texTransformInline (RawInline "latex" tex) = (\html -> Span ("", [], []) [RawInline "html" html]) <$> texTransform' id tex
     texTransformInline x = return x
     texTransformBlock :: Block -> Compiler Block
-    texTransformBlock (RawBlock "latex" tex) = (\html -> Div ("", [], []) [RawBlock "html" html]) <$> texTransform' tex
+    texTransformBlock (RawBlock "latex" tex) = (\html -> Div ("", [], []) [RawBlock "html" html]) <$> texTransform' id tex
     texTransformBlock x = return x
-    texTransform' :: String -> Compiler String
-    texTransform' tex = do
+    texTransform' :: (String -> String) -> String -> Compiler String
+    texTransform' texT tex = do
       let
-        texId = texTranslation' tex
+        texId = texTranslation' $ texT tex
       alignment <- loadSnapshotBody texId "alignment"
       return $ printf "<object data=\"/%s\" type=\"image/svg+xml\" style=\"vertical-align:-%s\">%s</object>"
                (toFilePath texId) (alignment :: String) tex