diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-05 18:01:54 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-06 14:38:35 +0100 |
| commit | 8d87b5bf45082f29eefc911df1378fad327bf6fa (patch) | |
| tree | 909bcb62f16d957cb14fbc65236db6e13f6c4e06 /libraries/base/GHC/Event | |
| parent | f3c261bcc9dfec69abf0eff08758b4f0b126943e (diff) | |
| download | haskell-8d87b5bf45082f29eefc911df1378fad327bf6fa.tar.gz | |
Re-jig SOURCE imports
* Do not have have an hs-boot file for Data.Typeable
* Instead make all the loops go through
GHC.Err (just a couple of magic functions)
GHC.Exception (some non-exceptional functions)
The main idea is
a) don't involve classes in the hs-boot world
b) loop through error cases where performance doesn't matter
c) be careful not to SOURCE import things that are bottom,
unless MkCore knows about them in eRROR_IDS, so that we
see their strictness
Diffstat (limited to 'libraries/base/GHC/Event')
| -rw-r--r-- | libraries/base/GHC/Event/Array.hs | 1 | ||||
| -rw-r--r-- | libraries/base/GHC/Event/EPoll.hsc | 1 | ||||
| -rw-r--r-- | libraries/base/GHC/Event/Poll.hsc | 1 |
3 files changed, 0 insertions, 3 deletions
diff --git a/libraries/base/GHC/Event/Array.hs b/libraries/base/GHC/Event/Array.hs index 5b811ef7a9..fbc2a971e6 100644 --- a/libraries/base/GHC/Event/Array.hs +++ b/libraries/base/GHC/Event/Array.hs @@ -33,7 +33,6 @@ import Foreign.ForeignPtr (ForeignPtr, withForeignPtr) import Foreign.Ptr (Ptr, nullPtr, plusPtr) import Foreign.Storable (Storable(..)) import GHC.Base -import GHC.Err (undefined) import GHC.ForeignPtr (mallocPlainForeignPtrBytes, newForeignPtr_) import GHC.Num (Num(..)) import GHC.Real (fromIntegral) diff --git a/libraries/base/GHC/Event/EPoll.hsc b/libraries/base/GHC/Event/EPoll.hsc index 44c8bd9750..e253671ac1 100644 --- a/libraries/base/GHC/Event/EPoll.hsc +++ b/libraries/base/GHC/Event/EPoll.hsc @@ -52,7 +52,6 @@ import Foreign.Marshal.Utils (with) import Foreign.Ptr (Ptr) import Foreign.Storable (Storable(..)) import GHC.Base -import GHC.Err (undefined) import GHC.Num (Num(..)) import GHC.Real (ceiling, fromIntegral) import GHC.Show (Show) diff --git a/libraries/base/GHC/Event/Poll.hsc b/libraries/base/GHC/Event/Poll.hsc index c5003ff24f..fc4b011d4d 100644 --- a/libraries/base/GHC/Event/Poll.hsc +++ b/libraries/base/GHC/Event/Poll.hsc @@ -37,7 +37,6 @@ import Foreign.Ptr (Ptr) import Foreign.Storable (Storable(..)) import GHC.Base import GHC.Conc.Sync (withMVar) -import GHC.Err (undefined) import GHC.Num (Num(..)) import GHC.Real (ceiling, fromIntegral) import GHC.Show (Show) |