mit-3qvpPyAi6mH-6: src/Mit/Directory.hs

module Mit.Directory where

import qualified Data.Text as Text
import Mit.Prelude
import qualified System.Directory as Directory

doesDirectoryExist :: Text -> IO Bool
doesDirectoryExist =
  Directory.doesDirectoryExist . Text.unpack

withCurrentDirectory :: Text -> IO a -> IO a
withCurrentDirectory dir =
  Directory.withCurrentDirectory (Text.unpack dir)