@@ -137,13 +137,13 @@ saveOutput input output = do
137137main :: IO ()
138138main = bracket
139139 -- acquire resource
140− (do dir <- return "testtmp" -- TODO -- getTemporaryDirectory
140+ (do dir <- getTemporaryDirectory
141141 let tmp = dir </> "pandoc"
142142 createDirectoryIfMissing True tmp
143143 return tmp)
144144
145145 -- release resource
146− ( \tmp -> return () )-- TODO -- removeDirectoryRecursive tmp)
146+ ( \tmp -> removeDirectoryRecursive tmp)
147147
148148 -- run computation
149149 $ \tmp -> do