Removed TH module; refactored LaTeXMathML not to use TH.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1692 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 10 insertions, 8 deletions

diff --git a/src/Text/Pandoc/LaTeXMathML.hs b/src/Text/Pandoc/LaTeXMathML.hs
index 1eb3c23cc..8cdd3cd21 100644
--- a/src/Text/Pandoc/LaTeXMathML.hs
+++ b/src/Text/Pandoc/LaTeXMathML.hs
@@ -1,14 +1,16 @@
-{-# LANGUAGE CPP, TemplateHaskell #-}
 -- | Definitions for use of LaTeXMathML in HTML.  
 -- (See <http://math.etsu.edu/LaTeXMathML/>)
 module Text.Pandoc.LaTeXMathML ( latexMathMLScript ) where
-import Text.Pandoc.TH ( contentsOf )
 import System.FilePath ( (</>) )
+import Text.Pandoc.Shared (readDataFile)
 
 -- | String containing LaTeXMathML javascript.
-latexMathMLScript :: String
-#ifndef __HADDOCK__
-latexMathMLScript = "<script type=\"text/javascript\">\n" ++
-                    $(contentsOf $ "data" </> "LaTeXMathML.js.comment") ++
-                    $(contentsOf $ "data" </> "LaTeXMathML.js.packed") ++ "</script>\n"
-#endif
+latexMathMLScript :: IO String
+latexMathMLScript = undefined
+{-
+latexMathMLScript = do
+ jsCom <- readDataFile $ "data" </> "LaTeXMathML.js.comment"
+ jsPacked <- readDataFile $ "data" </> "LaTeXMathML.js.packed"
+ return $ "<script type=\"text/javascript\">\n" ++ jsCom ++ jsPacked ++
+          "</script>\n"
+-}