Merge remote branch 'origin/master' into ghc-generics
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 20 Apr 2011 11:55:29 +0000 (12:55 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 20 Apr 2011 11:55:29 +0000 (12:55 +0100)
1  2 
compiler/hsSyn/HsBinds.lhs
compiler/rename/RnBinds.lhs
compiler/typecheck/TcDeriv.lhs
compiler/typecheck/TcGenDeriv.lhs

@@@ -680,18 -675,12 +680,13 @@@ okClsDclSig (SpecInstSig _) = Fals
  okClsDclSig _               = True        -- All others OK
  
  okInstDclSig :: Sig a -> Bool
 -okInstDclSig (TypeSig _ _)   = False
 -okInstDclSig (FixSig _)      = False
 -okInstDclSig _                     = True
 +okInstDclSig (TypeSig _ _)    = False
 +okInstDclSig (GenericSig _ _) = False
 +okInstDclSig (FixSig _)       = False
 +okInstDclSig _                      = True
  
- sigForThisGroup :: NameSet -> LSig Name -> Bool
- sigForThisGroup ns sig
-   = case sigName sig of
-       Nothing -> False
-       Just n  -> n `elemNameSet` ns
  sigName :: LSig name -> Maybe name
+ -- Used only in Haddock
  sigName (L _ sig) = sigNameNoLoc sig
  
  sigNameNoLoc :: Sig name -> Maybe name    
Simple merge
Simple merge
Simple merge