X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnPat.lhs;h=8c75caa99365516618e7e772ed1d2ef672080296;hp=3ab1c421a7103f27ee4b4d15117633013fac5f31;hb=206b4dec78250efef3cd927d64dc6cbc54a16c3d;hpb=1286da96dc65faa5992a8a34c5b3bf29dfe2be04

diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs
index 3ab1c42..8c75caa 100644
--- a/compiler/rename/RnPat.lhs
+++ b/compiler/rename/RnPat.lhs
@@ -384,7 +384,8 @@ rnHsRecFieldsAndThen choice rn_thing (HsRecFields fields dd) cont =
                 -- each list represents a RdrName that occurred more than once
                 -- (the list contains all occurrences)
                 -- invariant: each list in dup_fields is non-empty
-                (_, dup_fields :: [[RdrName]]) = removeDups compare
+                dup_fields :: [[RdrName]]
+                (_, dup_fields) = removeDups compare
                                                  (map (unLoc . hsRecFieldId) fields)
                                              
                 -- duplicate field reporting function