X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FhsSyn%2FHsBinds.lhs;h=dab286013b36b59991f22f0697cb20554e50da33;hb=fed25228aec3f3bd2f91c50d67043d83efb1af18;hp=e6cad1ab9a9b157123e52108037291f01a6667dc;hpb=ada48bbc7f6a43b2c042df629327902d82cea681;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs
index e6cad1a..dab2860 100644
--- a/compiler/hsSyn/HsBinds.lhs
+++ b/compiler/hsSyn/HsBinds.lhs
@@ -671,7 +671,7 @@ okBindSig _ = True
 
 okHsBootSig :: Sig a -> Bool
 okHsBootSig (TypeSig  _ _)    = True
-okHsBootSig (GenericSig  _ _) = True -- JPM: Is this true?
+okHsBootSig (GenericSig  _ _) = False
 okHsBootSig (FixSig _) 	      = True
 okHsBootSig _                 = False