Commit 8ec97816 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Another tiny tidy-up to RnPat

parent ef5376d5
......@@ -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) }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment