aboutsummaryrefslogtreecommitdiff
path: root/Text
diff options
context:
space:
mode:
Diffstat (limited to 'Text')
-rw-r--r--Text/Pandoc/ASCIIMathML.hs5
-rw-r--r--Text/Pandoc/ODT.hs2
2 files changed, 4 insertions, 3 deletions
diff --git a/Text/Pandoc/ASCIIMathML.hs b/Text/Pandoc/ASCIIMathML.hs
index 2f634b0b0..72a1f0e19 100644
--- a/Text/Pandoc/ASCIIMathML.hs
+++ b/Text/Pandoc/ASCIIMathML.hs
@@ -3,9 +3,10 @@
-- (See <http://www1.chapman.edu/~jipsen/mathml/asciimath.html>.)
module Text.Pandoc.ASCIIMathML ( asciiMathMLScript ) where
import Text.Pandoc.Shared ( contentsOf )
+import System.FilePath ( (</>) )
-- | String containing ASCIIMathML javascript.
asciiMathMLScript :: String
asciiMathMLScript = "<script type=\"text/javascript\">\n" ++
- $(contentsOf $ "data/ASCIIMathML.js.comment") ++
- $(contentsOf $ "data/ASCIIMathML.js.packed") ++ "</script>\n"
+ $(contentsOf $ "data" </> "ASCIIMathML.js.comment") ++
+ $(contentsOf $ "data" </> "ASCIIMathML.js.packed") ++ "</script>\n"
diff --git a/Text/Pandoc/ODT.hs b/Text/Pandoc/ODT.hs
index bb49792eb..6c0cca0a9 100644
--- a/Text/Pandoc/ODT.hs
+++ b/Text/Pandoc/ODT.hs
@@ -62,7 +62,7 @@ saveOpenDocumentAsODT destinationODTPath sourceDirRelative xml = do
withTempDir "pandoc-odt" $ \tempDir -> do
let tempODT = tempDir </> "reference.odt"
copyFile "odt-styles/reference.odt" tempODT
- B.writeFile tempODT $ B.pack $(contentsOf "odt-styles/reference.odt")
+ B.writeFile tempODT $ B.pack $(contentsOf $ "odt-styles" </> "reference.odt")
createDirectory $ tempDir </> "Pictures"
xml' <- handlePictures tempODT sourceDirRelative xml
writeFile (tempDir </> "content.xml") xml'