@@ -137,13 +137,13 @@ saveOutput input output = do
137main :: IO ()
137main :: IO ()
138main = bracket
138main = bracket
139 -- acquire resource
139 -- acquire resource
140− (do dir <- return "testtmp" -- TODO -- getTemporaryDirectory
140+ (do dir <- getTemporaryDirectory
141 let tmp = dir </> "pandoc"
141 let tmp = dir </> "pandoc"
142 createDirectoryIfMissing True tmp
142 createDirectoryIfMissing True tmp
143 return tmp)
143 return tmp)
145 -- release resource
145 -- release resource
146− ( \tmp -> return () )-- TODO -- removeDirectoryRecursive tmp)
146+ ( \tmp -> removeDirectoryRecursive tmp)
148 -- run computation
148 -- run computation
149 $ \tmp -> do
149 $ \tmp -> do