X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnTypes.lhs;h=0aa0b4e1c568ec0ed9ee1c1377ea940c340e7307;hp=d04a0d93d4e6d90a78231c0ca59bc1f4e4d631c3;hb=9da4639011348fb6c318e3cba4b08622f811d9c4;hpb=1bf363052778fc39335ea3701a3229572358c51e

diff --git a/compiler/rename/RnTypes.lhs b/compiler/rename/RnTypes.lhs
index d04a0d9..0aa0b4e 100644
--- a/compiler/rename/RnTypes.lhs
+++ b/compiler/rename/RnTypes.lhs
@@ -534,7 +534,6 @@ rnPatsAndThen ctxt pats thing_inside
     bindLocatedLocalsFV doc_pat bndrs	$ \ new_bndrs ->
     rnLPats pats			`thenM` \ (pats', pat_fvs) ->
     thing_inside pats'			`thenM` \ (res, res_fvs) ->
-
     let
 	unused_binders = filter (not . (`elemNameSet` res_fvs)) new_bndrs
     in