Remove GHC's haskell98 dependency

[ghc-hetmet.git] / compiler / rename / RnBinds.lhs

diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index e52e3f1..d7865f4 100644 (file)
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -42,7 +42,7 @@ import Outputable
 import FastString
 import Data.List       ( partition )
 import Maybes          ( orElse )
-import Monad           ( foldM, unless )
+import Control.Monad
 \end{code}
 
 -- ToDo: Put the annotations into the monad, so that they arrive in the proper
@@ -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