Another tiny tidy-up to RnPat

8ec97816 · simonpj@microsoft.com · ef5376d5 · 8ec97816
Commit 8ec97816 authored Aug 21, 2009 by simonpj@microsoft.com
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/rename/RnPat.lhs compiler/rename/RnPat.lhs +1 -1

No files found.
--- a/compiler/rename/RnPat.lhs
+++ b/compiler/rename/RnPat.lhs
@@ -481,7 +481,7 @@ rnHsRecFields1 ctxt mk_arg (HsRecFields { rec_flds = flds, rec_dotdot = dotdot }
                 extras = [ HsRecField
                              { hsRecFieldId = L loc f
                              , hsRecFieldArg = name_to_arg (L loc f)
-                              , hsRecPun = True }
+                              , hsRecPun = False }
                          | f <- absent_flds ]

           ; return (flds ++ extras) }