X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnMonad.lhs;h=86feb4c51f1e007ab8e3691c146de682f69288d8;hb=6cce4a58fb206f16db579fded00fd0a7090543ae;hp=fdfaccfc28ba8c1ce2f61f24e298ea5da2487ba6;hpb=770cf8801c6b71f77051e96705a0418e723d7244;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index fdfaccf..86feb4c 100644
--- a/ghc/compiler/rename/RnMonad.lhs
+++ b/ghc/compiler/rename/RnMonad.lhs
@@ -287,14 +287,16 @@ data ParsedIface
       pi_deprecs   :: [(Maybe FAST_STRING, FAST_STRING)] -- Deprecations, the type is currently only a hack
     }
 
-type InterfaceDetails = (WhetherHasOrphans,
-			 VersionInfo Name, -- Version information for what this module imports
-			 ExportEnv)	   -- What modules this one depends on
+data InterfaceDetails
+   = InterfaceDetails WhetherHasOrphans
+		      (VersionInfo Name)   -- Version information for what this module imports
+		      ExportEnv		   -- What modules this one depends on
+		      [Deprecation Name]
 
 
 -- needed by Main to fish out the fixities assoc list.
 getIfaceFixities :: InterfaceDetails -> Fixities
-getIfaceFixities (_, _, ExportEnv _ fs _) = fs
+getIfaceFixities (InterfaceDetails _ _ (ExportEnv _ fs _) _) = fs
 
 
 type RdrNamePragma = ()				-- Fudge for now