@@ -41,29 +41,17 @@ import Foreign.C.String ( peekCWString )
4141import Foreign.C.Types ( CChar , CInt (.. ), CShort (.. ), CWchar )
4242import Foreign.Ptr ( Ptr , nullPtr )
4343import Foreign.StablePtr ( StablePtr , freeStablePtr , newStablePtr )
44- #if MIN_VERSION_base(4,20,0)
45- import GHC.Internal.IO.Handle.Types ( Handle (.. ), Handle__ (.. ) )
46- import GHC.Internal.IO.FD ( FD (.. ) ) -- A wrapper around an Int32
47- #else
4844import GHC.IO.Handle.Types ( Handle (.. ), Handle__ (.. ) )
4945import GHC.IO.FD ( FD (.. ) ) -- A wrapper around an Int32
50- #endif
5146import Numeric ( showHex )
5247import System.IO.Error ( ioeSetErrorString )
5348
5449#if defined(__IO_MANAGER_WINIO__)
55- #if MIN_VERSION_base(4,20,0)
56- import GHC.Internal.IO.Exception
57- ( IOErrorType (InappropriateType ), IOException (IOError ), ioException )
58- import GHC.Internal.IO.SubSystem ( (<!>) )
59- import GHC.Internal.IO.Windows.Handle ( ConsoleHandle , Io , NativeHandle , toHANDLE )
60- #else
6150import GHC.IO.Exception
6251 ( IOErrorType (InappropriateType ), IOException (IOError ), ioException )
6352import GHC.IO.SubSystem ( (<!>) )
6453import GHC.IO.Windows.Handle ( ConsoleHandle , Io , NativeHandle , toHANDLE )
6554#endif
66- #endif
6755
6856type Addr = Ptr ()
6957type BOOL = Bool
0 commit comments