Generate Typeable info at definition sites
[ghc.git] / compiler / utils / Binary.hs
index 8946b6c..5083804 100644 (file)
@@ -76,7 +76,6 @@ import Data.IORef
 import Data.Char                ( ord, chr )
 import Data.Time
 import Data.Typeable
-import Data.Typeable.Internal
 import Control.Monad            ( when )
 import System.IO as IO
 import System.IO.Unsafe         ( unsafeInterleaveIO )
@@ -554,10 +553,14 @@ instance Binary (Bin a) where
 -- Instances for Data.Typeable stuff
 
 instance Binary TyCon where
-    put_ bh (TyCon _ p m n) = do
-        put_ bh (p,m,n)
+    put_ bh tc = do
+        put_ bh (tyConPackage tc)
+        put_ bh (tyConModule tc)
+        put_ bh (tyConName tc)
     get bh = do
-        (p,m,n) <- get bh
+        p <- get bh
+        m <- get bh
+        n <- get bh
         return (mkTyCon3 p m n)
 
 instance Binary TypeRep where