X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FBinIface.hs;h=c507f2e4dca8b696be9aedac5f057280a3bb6fd1;hb=abbc5a0be1df84a33015470319062ed7a3aa3153;hp=a2c824926318d101f7c6d5aee0210bcf6415dac1;hpb=7256d590ac3be11e208d2e071fa49e1d5c60d98e;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/BinIface.hs b/ghc/compiler/main/BinIface.hs
index a2c8249..c507f2e 100644
--- 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