X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnBinds.lhs;h=0dcd42168e740c0f6c5a9241c7dacb546d5adef7;hb=389cca214f33a29646e08d57e3dca862140007b2;hp=e52e3f1cb54d3a82cacc20530a8aa074413f360a;hpb=5f8d93baa07271687825458e01c187081bcb1ddc;p=ghc-hetmet.git

diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index e52e3f1..0dcd421 100644
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -718,6 +718,8 @@ renameSigs mb_names ok_sig sigs
 
 renameSig :: Maybe NameSet -> Sig RdrName -> RnM (Sig Name)
 -- FixitySig is renamed elsewhere.
+renameSig _ (IdSig x)
+  = return (IdSig x)	  -- Actually this never occurs
 renameSig mb_names sig@(TypeSig v ty)
   = do	{ new_v <- lookupSigOccRn mb_names sig v
 	; new_ty <- rnHsSigType (quotes (ppr v)) ty