[project @ 2003-09-23 14:32:57 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / BinIface.hs

diff --git a/ghc/compiler/main/BinIface.hs b/ghc/compiler/main/BinIface.hs
index a2c8249..c507f2e 100644 (file)
--- a/ghc/compiler/main/BinIface.hs
+++ b/ghc/compiler/main/BinIface.hs
@@ -28,7 +28,7 @@ import Module         ( moduleName )
 import OccName         ( OccName )
 import RnHsSyn
 import DriverState     ( v_Build_tag )
-import CmdLineOpts     ( opt_IgnoreIfacePragmas, opt_HiVersion )
+import CmdLineOpts     ( opt_HiVersion )
 import Panic
 import SrcLoc
 import Binary
@@ -170,9 +170,7 @@ instance (Binary name) => Binary (TyClDecl name) where
                    name <- get bh
                    ty <- lazyGet bh
                    idinfo <- lazyGet bh
-                   let idinfo' | opt_IgnoreIfacePragmas = []
-                               | otherwise = idinfo
-                   return (IfaceSig name ty idinfo' noSrcLoc)
+                   return (IfaceSig name ty idinfo noSrcLoc)
              1 -> error "Binary.get(TyClDecl): ForeignType"
              2 -> do
                    n_or_d <- get bh