lots of portability changes (#1405)

[ghc-hetmet.git] / compiler / rename / RnPat.lhs

diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs
index 3ab1c42..8c75caa 100644 (file)
--- 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