@@ -41,29 +41,17 @@ import Foreign.C.String ( peekCWString )
41
41
import Foreign.C.Types ( CChar , CInt (.. ), CShort (.. ), CWchar )
42
42
import Foreign.Ptr ( Ptr , nullPtr )
43
43
import 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
48
44
import GHC.IO.Handle.Types ( Handle (.. ), Handle__ (.. ) )
49
45
import GHC.IO.FD ( FD (.. ) ) -- A wrapper around an Int32
50
- #endif
51
46
import Numeric ( showHex )
52
47
import System.IO.Error ( ioeSetErrorString )
53
48
54
49
#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
61
50
import GHC.IO.Exception
62
51
( IOErrorType (InappropriateType ), IOException (IOError ), ioException )
63
52
import GHC.IO.SubSystem ( (<!>) )
64
53
import GHC.IO.Windows.Handle ( ConsoleHandle , Io , NativeHandle , toHANDLE )
65
54
#endif
66
- #endif
67
55
68
56
type Addr = Ptr ()
69
57
type BOOL = Bool
0 commit comments