X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnBinds.lhs;h=defbee53201f35672ed5f82734516a36902f3e38;hb=48eec5685167006e5e0932d334f8bd2017d7f5d3;hp=0036a5303b0a2cfbb70d07f1b1cee66973bf1a42;hpb=fbbd8bedc973b5c6640580d4caee55084166a4a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs
index 0036a53..defbee5 100644
--- a/ghc/compiler/rename/RnBinds.lhs
+++ b/ghc/compiler/rename/RnBinds.lhs
@@ -541,6 +541,11 @@ renameSig lookup_occ_nm (FixSig (FixitySig v fix src_loc))
     lookup_occ_nm v		`thenRn` \ new_v ->
     returnRn (FixSig (FixitySig new_v fix src_loc), unitFV new_v)
 
+renameSig lookup_occ_nm (DeprecSig v txt src_loc)
+  = pushSrcLocRn src_loc $
+    lookup_occ_nm v		`thenRn` \ new_v ->
+    returnRn (DeprecSig new_v txt src_loc, unitFV new_v)
+
 renameSig lookup_occ_nm (InlineSig v p src_loc)
   = pushSrcLocRn src_loc $
     lookup_occ_nm v		`thenRn` \ new_v ->
@@ -557,6 +562,7 @@ Checking for distinct signatures; oh, so boring
 \begin{code}
 cmp_sig :: RenamedSig -> RenamedSig -> Ordering
 cmp_sig (Sig n1 _ _)	     (Sig n2 _ _)    	     = n1 `compare` n2
+cmp_sig (DeprecSig n1 _ _)     (DeprecSig n2 _ _)    = n1 `compare` n2
 cmp_sig (InlineSig n1 _ _)     (InlineSig n2 _ _)    = n1 `compare` n2
 cmp_sig (NoInlineSig n1 _ _)   (NoInlineSig n2 _ _)  = n1 `compare` n2
 cmp_sig (SpecInstSig ty1 _)  (SpecInstSig ty2 _)     = cmpHsType compare ty1 ty2
@@ -575,6 +581,7 @@ sig_tag (InlineSig n1 _ _)  	   = ILIT(3)
 sig_tag (NoInlineSig n1 _ _)  	   = ILIT(4)
 sig_tag (SpecInstSig _ _)	   = ILIT(5)
 sig_tag (FixSig _)		   = ILIT(6)
+sig_tag (DeprecSig _ _ _)	   = ILIT(7)
 sig_tag _			   = panic# "tag(RnBinds)"
 \end{code}
 
@@ -607,6 +614,7 @@ sig_doc (InlineSig  _ _    loc)	     = (SLIT("INLINE pragma"),loc)
 sig_doc (NoInlineSig  _ _  loc)	     = (SLIT("NOINLINE pragma"),loc)
 sig_doc (SpecInstSig _ loc)	     = (SLIT("SPECIALISE instance pragma"),loc)
 sig_doc (FixSig (FixitySig _ _ loc)) = (SLIT("fixity declaration"), loc)
+sig_doc (DeprecSig _ _ loc)          = (SLIT("DEPRECATED pragma"), loc)
 
 missingSigWarn var
   = sep [ptext SLIT("definition but no type signature for"), quotes (ppr var)]