aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-02-13 08:53:48 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2011-02-13 08:53:48 -0800
commit5c3d9488d2f769f74c005451de40145d5c6903d2 (patch)
tree25cbc8f78c414081893a6b8cbbcb27316344fd27 /src
parentb1c19998edc84d5a066cd47932bf0849027fbc2d (diff)
downloadpandoc-5c3d9488d2f769f74c005451de40145d5c6903d2.tar.gz
markdown2pdf: Removed mistakenly included debugging lines.
With the lines, markdown2pdf creates a temporary directory in the working directory. Original behavior now restored.
Diffstat (limited to 'src')
-rw-r--r--src/markdown2pdf.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/markdown2pdf.hs b/src/markdown2pdf.hs
index 8dc5f273c..005717bf0 100644
--- a/src/markdown2pdf.hs
+++ b/src/markdown2pdf.hs
@@ -137,13 +137,13 @@ saveOutput input output = do
main :: IO ()
main = bracket
-- acquire resource
- (do dir <- return "testtmp" -- TODO -- getTemporaryDirectory
+ (do dir <- getTemporaryDirectory
let tmp = dir </> "pandoc"
createDirectoryIfMissing True tmp
return tmp)
-- release resource
- ( \tmp -> return () )-- TODO -- removeDirectoryRecursive tmp)
+ ( \tmp -> removeDirectoryRecursive tmp)
-- run computation
$ \tmp -> do