Improve the desugaring of -XStrict
[ghc.git] / compiler / hsSyn / HsPat.hs
index f7d1876..edf2e1b 100644 (file)
@@ -577,8 +577,6 @@ looksLazyPatBind (PatBind { pat_lhs = p })
   = looksLazyLPat p
 looksLazyPatBind (AbsBinds { abs_binds = binds })
   = anyBag (looksLazyPatBind . unLoc) binds
-looksLazyPatBind (AbsBindsSig { abs_sig_bind = L _ bind })
-  = looksLazyPatBind bind
 looksLazyPatBind _
   = False