1 files changed, 7 insertions, 4 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs
index 8946b6cf62..5083804d6f 100644
--- a/compiler/utils/Binary.hs
+++ b/compiler/utils/Binary.hs
@@ -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