diff options
| -rw-r--r-- | libraries/base/Foreign/Marshal/Pool.hs | 2 | ||||
| -rw-r--r-- | libraries/base/GHC/Event/Thread.hs | 2 | ||||
| -rw-r--r-- | libraries/base/GHC/IO/Encoding.hs | 2 | ||||
| -rw-r--r-- | libraries/base/System/IO.hs | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/libraries/base/Foreign/Marshal/Pool.hs b/libraries/base/Foreign/Marshal/Pool.hs index 1488e0ff09..78d069ad13 100644 --- a/libraries/base/Foreign/Marshal/Pool.hs +++ b/libraries/base/Foreign/Marshal/Pool.hs @@ -54,7 +54,7 @@ import GHC.IORef ( IORef, newIORef, readIORef, writeIORef ) import GHC.List ( elem, length ) import GHC.Num ( Num(..) ) -import Data.List ( delete ) +import Data.OldList ( delete ) import Foreign.Marshal.Alloc ( mallocBytes, reallocBytes, free ) import Foreign.Marshal.Array ( pokeArray, pokeArray0 ) import Foreign.Marshal.Error ( throwIf ) diff --git a/libraries/base/GHC/Event/Thread.hs b/libraries/base/GHC/Event/Thread.hs index f74fb7ddc5..6fe76895ad 100644 --- a/libraries/base/GHC/Event/Thread.hs +++ b/libraries/base/GHC/Event/Thread.hs @@ -18,12 +18,12 @@ module GHC.Event.Thread import Control.Exception (finally, SomeException, toException) import Control.Monad (forM, forM_, sequence_, zipWithM) import Data.IORef (IORef, newIORef, readIORef, writeIORef) -import Data.List (zipWith3) import Data.Tuple (snd) import Foreign.C.Error (eBADF, errnoToIOError) import Foreign.C.Types (CInt(..), CUInt(..)) import Foreign.Ptr (Ptr) import GHC.Base +import GHC.List (zipWith3) import GHC.Conc.Sync (TVar, ThreadId, ThreadStatus(..), atomically, forkIO, labelThread, modifyMVar_, withMVar, newTVar, sharedCAF, getNumCapabilities, threadCapability, myThreadId, forkOn, diff --git a/libraries/base/GHC/IO/Encoding.hs b/libraries/base/GHC/IO/Encoding.hs index 9d03276c98..e8bbdfae21 100644 --- a/libraries/base/GHC/IO/Encoding.hs +++ b/libraries/base/GHC/IO/Encoding.hs @@ -44,11 +44,11 @@ import qualified GHC.IO.Encoding.Latin1 as Latin1 import qualified GHC.IO.Encoding.UTF8 as UTF8 import qualified GHC.IO.Encoding.UTF16 as UTF16 import qualified GHC.IO.Encoding.UTF32 as UTF32 +import GHC.List import GHC.Word import Data.IORef import Data.Char (toUpper) -import Data.List import System.IO.Unsafe (unsafePerformIO) -- ----------------------------------------------------------------------------- diff --git a/libraries/base/System/IO.hs b/libraries/base/System/IO.hs index 5cd0351fdb..cb67a2a1c8 100644 --- a/libraries/base/System/IO.hs +++ b/libraries/base/System/IO.hs @@ -222,7 +222,6 @@ module System.IO ( import Control.Exception.Base import Data.Bits -import Data.List import Data.Maybe import Foreign.C.Error #ifdef mingw32_HOST_OS @@ -233,6 +232,7 @@ import System.Posix.Internals import System.Posix.Types import GHC.Base +import GHC.List import GHC.IO hiding ( bracket, onException ) import GHC.IO.IOMode import GHC.IO.Handle.FD |