From 5c3d9488d2f769f74c005451de40145d5c6903d2 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 13 Feb 2011 08:53:48 -0800
Subject: markdown2pdf: Removed mistakenly included debugging lines.

With the lines, markdown2pdf creates a temporary directory in the
working directory. Original behavior now restored.
---
 src/markdown2pdf.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3