diff options
-rw-r--r-- | src/markdown2pdf.hs | 4 |
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 |