{-# LANGUAGE CPP #-}
module System.File.OsPath where
#if defined(mingw32_HOST_OS) || defined(__MINGW32__)
#define CTOR WS
import qualified System.File.Windows as P
#else
#define CTOR PS
import qualified System.File.Posix as P
#endif
import Control.Exception (bracket)
import System.IO (IOMode(..), Handle, hSetBinaryMode, hClose)
import System.OsPath
import System.OsString.Internal.Types
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BSL
#define FILE_PATH OsPath
#include "Common.hs"
openFile :: OsPath -> IOMode -> IO Handle
openFile :: OsPath -> IOMode -> IO Handle
openFile (OsString PlatformString
fp) = PlatformString -> IOMode -> IO Handle
P.openFile PlatformString
fp
openExistingFile :: OsPath -> IOMode -> IO Handle
openExistingFile :: OsPath -> IOMode -> IO Handle
openExistingFile (OsString PlatformString
fp) = PlatformString -> IOMode -> IO Handle
P.openExistingFile PlatformString
fp