shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add withCurrentDirectory

--- a/lib/System/Directory.hs

+++ b/lib/System/Directory.hs

@@ -6,6 +6,7 @@

   listDirectory,

   setCurrentDirectory,

   getCurrentDirectory,

+  withCurrentDirectory,

   createDirectory,

   createDirectoryIfMissing,

   copyFile,

@@ -12,6 +13,7 @@

   getHomeDirectory,

   ) where

 import Prelude

+import Control.Exception(bracket)

 import Control.Monad(when)

 import Foreign.C.String

 import Foreign.Marshal.Alloc

@@ -87,6 +89,12 @@

     when (cwd == nullPtr) $

       error "getCurrentDirectory"

     peekCAString cwd

+

+withCurrentDirectory :: FilePath -> IO a -> IO a

+withCurrentDirectory dir io =

+  bracket getCurrentDirectory setCurrentDirectory $ \ _ -> do

+    setCurrentDirectory dir

+    io

 createDirectory :: FilePath -> IO ()

 createDirectory d = do

-- 

⑨