Yooo

lib/GHCup/File.hs

@@ -5,6 +5,8 @@ module GHCup.File where
 
 import           Control.Exception.Safe
 import           Control.Monad
+import           Control.Monad.IO.Class
+import           Control.Monad.Trans.Resource
 import           Data.ByteString
 import           Data.ByteString.Unsafe         ( unsafeUseAsCStringLen )
 import           Data.Char
@@ -186,13 +188,19 @@ toProcessError exe args mps = case mps of
   Nothing                            -> Left $ NoSuchPid exe args
 
 
-mkGhcupTmpDir :: IO (Path Abs)
+mkGhcupTmpDir :: (MonadThrow m, MonadIO m) => m (Path Abs)
 mkGhcupTmpDir = do
-  tmpdir <- getEnvDefault [s|TMPDIR|] [s|/tmp|]
-  tmp    <- mkdtemp $ (tmpdir FP.</> [s|ghcup-|])
+  tmpdir <- liftIO $ getEnvDefault [s|TMPDIR|] [s|/tmp|]
+  tmp    <- liftIO $ mkdtemp $ (tmpdir FP.</> [s|ghcup-|])
+  liftIO $ System.IO.putStrLn $ show tmp
   parseAbs tmp
 
 
+withGHCupTmpDir :: (MonadResource m, MonadThrow m, MonadIO m)
+                => m (Path Abs)
+withGHCupTmpDir = snd <$> allocate mkGhcupTmpDir deleteDirRecursive
+
+
 getHomeDirectory :: IO (Path Abs)
 getHomeDirectory = do
   e <- getEnv [s|HOME|]