Remove some unnecessary SOURCE imports
authorIan Lynagh <ian@well-typed.com>
Sun, 2 Jun 2013 11:47:28 +0000 (12:47 +0100)
committerIan Lynagh <ian@well-typed.com>
Sun, 2 Jun 2013 11:47:28 +0000 (12:47 +0100)
Data/OldTypeable.hs
Data/OldTypeable.hs-boot [deleted file]
Data/OldTypeable/Internal.hs

index bed7ad1..58d4f33 100644 (file)
@@ -100,11 +100,7 @@ import GHC.Base
 import GHC.Err          (undefined)
 
 import GHC.Fingerprint.Type
-import {-# SOURCE #-} GHC.Fingerprint
-   -- loop: GHC.Fingerprint -> Foreign.Ptr -> Data.Typeable
-   -- Better to break the loop here, because we want non-SOURCE imports
-   -- of Data.Typeable as much as possible so we can optimise the derived
-   -- instances.
+import GHC.Fingerprint
 
 #endif
 
diff --git a/Data/OldTypeable.hs-boot b/Data/OldTypeable.hs-boot
deleted file mode 100644 (file)
index 6c1f795..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-{-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-
-module Data.OldTypeable (Typeable, mkTyConApp, cast) where
-
-import Data.Maybe
-import {-# SOURCE #-} Data.Typeable.Internal
-
-cast :: (Typeable a, Typeable b) => a -> Maybe b
-
index 5c26130..739b4e8 100644 (file)
@@ -75,11 +75,7 @@ import GHC.Arr          ( Array, STArray )
 import Data.Int
 
 import GHC.Fingerprint.Type
-import {-# SOURCE #-} GHC.Fingerprint
-   -- loop: GHC.Fingerprint -> Foreign.Ptr -> Data.Typeable
-   -- Better to break the loop here, because we want non-SOURCE imports
-   -- of Data.Typeable as much as possible so we can optimise the derived
-   -- instances.
+import GHC.Fingerprint
 
 -- | A concrete representation of a (monomorphic) type.  'TypeRep'
 -- supports reasonably efficient equality.