projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
af97ffa
)
Remove redundant imports, now that NoImplicitPrelude does not imply RebindableSyntax
author
simonpj@microsoft.com
<unknown>
Fri, 22 Oct 2010 14:31:57 +0000
(14:31 +0000)
committer
simonpj@microsoft.com
<unknown>
Fri, 22 Oct 2010 14:31:57 +0000
(14:31 +0000)
15 files changed:
Control/OldException.hs
patch
|
blob
|
history
Data/Dynamic.hs
patch
|
blob
|
history
Data/Typeable.hs
patch
|
blob
|
history
Foreign/Marshal/Alloc.hs
patch
|
blob
|
history
GHC/Conc/IO.hs
patch
|
blob
|
history
GHC/Conc/Signal.hs
patch
|
blob
|
history
GHC/Conc/Sync.lhs
patch
|
blob
|
history
GHC/ForeignPtr.hs
patch
|
blob
|
history
GHC/IO/Handle/FD.hs
patch
|
blob
|
history
GHC/Pack.lhs
patch
|
blob
|
history
GHC/ST.lhs
patch
|
blob
|
history
GHC/Unicode.hs
patch
|
blob
|
history
System/Event/Control.hs
patch
|
blob
|
history
System/Event/Manager.hs
patch
|
blob
|
history
System/Timeout.hs
patch
|
blob
|
history
diff --git
a/Control/OldException.hs
b/Control/OldException.hs
index
f0435d6
..
4fa787f
100644
(file)
--- a/
Control/OldException.hs
+++ b/
Control/OldException.hs
@@
-132,7
+132,6
@@
module Control.OldException {-# DEPRECATED "Future versions of base will not sup
#ifdef __GLASGOW_HASKELL__
import GHC.Base
#ifdef __GLASGOW_HASKELL__
import GHC.Base
-import GHC.Num
import GHC.Show
-- import GHC.IO ( IO )
import GHC.IO.Handle.FD ( stdout )
import GHC.Show
-- import GHC.IO ( IO )
import GHC.IO.Handle.FD ( stdout )
diff --git
a/Data/Dynamic.hs
b/Data/Dynamic.hs
index
458497b
..
9b007d4
100644
(file)
--- a/
Data/Dynamic.hs
+++ b/
Data/Dynamic.hs
@@
-47,7
+47,6
@@
import Unsafe.Coerce
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.Show
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.Show
-import GHC.Num
import GHC.Exception
#endif
import GHC.Exception
#endif
diff --git
a/Data/Typeable.hs
b/Data/Typeable.hs
index
3fec639
..
e606294
100644
(file)
--- a/
Data/Typeable.hs
+++ b/
Data/Typeable.hs
@@
-93,7
+93,7
@@
import GHC.Base
import GHC.Show (Show(..), ShowS,
shows, showString, showChar, showParen)
import GHC.Err (undefined)
import GHC.Show (Show(..), ShowS,
shows, showString, showChar, showParen)
import GHC.Err (undefined)
-import GHC.Num (Integer, fromInteger, (+))
+import GHC.Num (Integer, (+))
import GHC.Real ( rem, Ratio )
import GHC.IORef (IORef,newIORef)
import GHC.IO (unsafePerformIO,mask_)
import GHC.Real ( rem, Ratio )
import GHC.IORef (IORef,newIORef)
import GHC.IO (unsafePerformIO,mask_)
diff --git
a/Foreign/Marshal/Alloc.hs
b/Foreign/Marshal/Alloc.hs
index
bbc2b98
..
5c86155
100644
(file)
--- a/
Foreign/Marshal/Alloc.hs
+++ b/
Foreign/Marshal/Alloc.hs
@@
-68,7
+68,6
@@
import GHC.Real
import GHC.Ptr
import GHC.Err
import GHC.Base
import GHC.Ptr
import GHC.Err
import GHC.Base
-import GHC.Num
#elif defined(__NHC__)
import NHC.FFI ( FinalizerPtr, CInt(..) )
import IO ( bracket )
#elif defined(__NHC__)
import NHC.FFI ( FinalizerPtr, CInt(..) )
import IO ( bracket )
diff --git
a/GHC/Conc/IO.hs
b/GHC/Conc/IO.hs
index
ee0013c
..
785239c
100644
(file)
--- a/
GHC/Conc/IO.hs
+++ b/
GHC/Conc/IO.hs
@@
-46,7
+46,6
@@
module GHC.Conc.IO
#endif
) where
#endif
) where
-import Control.Monad
import Foreign
import GHC.Base
import GHC.Conc.Sync as Sync
import Foreign
import GHC.Base
import GHC.Conc.Sync as Sync
diff --git
a/GHC/Conc/Signal.hs
b/GHC/Conc/Signal.hs
index
8871b34
..
6d300c6
100644
(file)
--- a/
GHC/Conc/Signal.hs
+++ b/
GHC/Conc/Signal.hs
@@
-21,7
+21,6
@@
import GHC.Conc.Sync (forkIO)
import GHC.IO (mask_, unsafePerformIO)
import GHC.IOArray (IOArray, boundsIOArray, newIOArray, unsafeReadIOArray,
unsafeWriteIOArray)
import GHC.IO (mask_, unsafePerformIO)
import GHC.IOArray (IOArray, boundsIOArray, newIOArray, unsafeReadIOArray,
unsafeWriteIOArray)
-import GHC.Num (fromInteger)
import GHC.Real (fromIntegral)
import GHC.Word (Word8)
import GHC.Real (fromIntegral)
import GHC.Word (Word8)
diff --git
a/GHC/Conc/Sync.lhs
b/GHC/Conc/Sync.lhs
index
b00c851
..
a75eee8
100644
(file)
--- a/
GHC/Conc/Sync.lhs
+++ b/
GHC/Conc/Sync.lhs
@@
-97,7
+97,6
@@
import GHC.IO.Exception
import GHC.Exception
import GHC.IORef
import GHC.MVar
import GHC.Exception
import GHC.IORef
import GHC.MVar
-import GHC.Num ( Num(..) )
import GHC.Real ( fromIntegral )
import GHC.Pack ( packCString# )
import GHC.Show ( Show(..), showString )
import GHC.Real ( fromIntegral )
import GHC.Pack ( packCString# )
import GHC.Show ( Show(..), showString )
diff --git
a/GHC/ForeignPtr.hs
b/GHC/ForeignPtr.hs
index
0d22e4e
..
8206241
100644
(file)
--- a/
GHC/ForeignPtr.hs
+++ b/
GHC/ForeignPtr.hs
@@
-46,7
+46,6
@@
import GHC.IORef
import GHC.STRef ( STRef(..) )
import GHC.Ptr ( Ptr(..), FunPtr(..) )
import GHC.Err
import GHC.STRef ( STRef(..) )
import GHC.Ptr ( Ptr(..), FunPtr(..) )
import GHC.Err
-import GHC.Num ( fromInteger )
#include "Typeable.h"
#include "Typeable.h"
diff --git
a/GHC/IO/Handle/FD.hs
b/GHC/IO/Handle/FD.hs
index
98b7472
..
9a319fe
100644
(file)
--- a/
GHC/IO/Handle/FD.hs
+++ b/
GHC/IO/Handle/FD.hs
@@
-21,7
+21,6
@@
module GHC.IO.Handle.FD (
) where
import GHC.Base
) where
import GHC.Base
-import GHC.Num
import GHC.Real
import GHC.Show
import Data.Maybe
import GHC.Real
import GHC.Show
import Data.Maybe
diff --git
a/GHC/Pack.lhs
b/GHC/Pack.lhs
index
47c10ec
..
f3e9609
100644
(file)
--- a/
GHC/Pack.lhs
+++ b/
GHC/Pack.lhs
@@
-37,7
+37,6
@@
module GHC.Pack
import GHC.Base
import GHC.List ( length )
import GHC.ST
import GHC.Base
import GHC.List ( length )
import GHC.ST
-import GHC.Num
import GHC.Ptr
data ByteArray ix = ByteArray ix ix ByteArray#
import GHC.Ptr
data ByteArray ix = ByteArray ix ix ByteArray#
diff --git
a/GHC/ST.lhs
b/GHC/ST.lhs
index
7d8e0e2
..
e3e24bf
100644
(file)
--- a/
GHC/ST.lhs
+++ b/
GHC/ST.lhs
@@
-20,7
+20,6
@@
module GHC.ST where
import GHC.Base
import GHC.Show
import GHC.Base
import GHC.Show
-import GHC.Num
default ()
\end{code}
default ()
\end{code}
diff --git
a/GHC/Unicode.hs
b/GHC/Unicode.hs
index
c97e1db
..
baca833
100644
(file)
--- a/
GHC/Unicode.hs
+++ b/
GHC/Unicode.hs
@@
-31,7
+31,6
@@
module GHC.Unicode (
import GHC.Base
import GHC.Real (fromIntegral)
import Foreign.C.Types (CInt)
import GHC.Base
import GHC.Real (fromIntegral)
import Foreign.C.Types (CInt)
-import GHC.Num (fromInteger)
#include "HsBaseConfig.h"
#include "HsBaseConfig.h"
diff --git
a/System/Event/Control.hs
b/System/Event/Control.hs
index
75a5ad0
..
159cbce
100644
(file)
--- a/
System/Event/Control.hs
+++ b/
System/Event/Control.hs
@@
-27,7
+27,6
@@
import Control.Monad (when)
import Foreign.ForeignPtr (ForeignPtr)
import GHC.Base
import GHC.Conc.Signal (Signal)
import Foreign.ForeignPtr (ForeignPtr)
import GHC.Base
import GHC.Conc.Signal (Signal)
-import GHC.Num (Num(..))
import GHC.Real (fromIntegral)
import GHC.Show (Show)
import GHC.Word (Word8)
import GHC.Real (fromIntegral)
import GHC.Show (Show)
import GHC.Word (Word8)
diff --git
a/System/Event/Manager.hs
b/System/Event/Manager.hs
index
a4579f6
..
46569eb
100644
(file)
--- a/
System/Event/Manager.hs
+++ b/
System/Event/Manager.hs
@@
-53,7
+53,7
@@
import GHC.Base
import GHC.Conc.Signal (runHandlers)
import GHC.List (filter)
import GHC.Num (Num(..))
import GHC.Conc.Signal (runHandlers)
import GHC.List (filter)
import GHC.Num (Num(..))
-import GHC.Real ((/), fromIntegral, fromRational)
+import GHC.Real ((/), fromIntegral )
import GHC.Show (Show(..))
import System.Event.Clock (getCurrentTime)
import System.Event.Control
import GHC.Show (Show(..))
import System.Event.Clock (getCurrentTime)
import System.Event.Control
diff --git
a/System/Timeout.hs
b/System/Timeout.hs
index
f27a936
..
431f709
100644
(file)
--- a/
System/Timeout.hs
+++ b/
System/Timeout.hs
@@
-27,7
+27,6
@@
import Control.Concurrent (forkIO, threadDelay, myThreadId, killThread)
import Control.Exception (Exception, handleJust, throwTo, bracket)
import Data.Typeable
import Data.Unique (Unique, newUnique)
import Control.Exception (Exception, handleJust, throwTo, bracket)
import Data.Typeable
import Data.Unique (Unique, newUnique)
-import GHC.Num
-- An internal type that is thrown as a dynamic exception to
-- interrupt the running IO computation when the timeout has
-- An internal type that is thrown as a dynamic exception to
-- interrupt the running IO computation when the timeout has