1 files changed, 0 insertions, 12 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs
index bf24b09b71..68ea2730b7 100644
--- a/compiler/utils/Binary.hs
+++ b/compiler/utils/Binary.hs
@@ -78,9 +78,7 @@ import Data.IORef
 import Data.Char                ( ord, chr )
 import Data.Time
 import Data.Typeable
-#if __GLASGOW_HASKELL__ >= 701
 import Data.Typeable.Internal
-#endif
 import Control.Monad            ( when )
 import System.IO as IO
 import System.IO.Unsafe         ( unsafeInterleaveIO )
@@ -604,22 +602,12 @@ instance Binary (Bin a) where
 -- -----------------------------------------------------------------------------
 -- Instances for Data.Typeable stuff
 
-#if __GLASGOW_HASKELL__ >= 701
 instance Binary TyCon where
     put_ bh (TyCon _ p m n) = do
         put_ bh (p,m,n)
     get bh = do
         (p,m,n) <- get bh
         return (mkTyCon3 p m n)
-#else
-instance Binary TyCon where
-    put_ bh ty_con = do
-        let s = tyConString ty_con
-        put_ bh s
-    get bh = do
-        s <- get bh
-        return (mkTyCon s)
-#endif
 
 instance Binary TypeRep where
     put_ bh type_rep = do