diff options
Diffstat (limited to 'compiler/rename/RnPat.lhs')
| -rw-r--r-- | compiler/rename/RnPat.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/rename/RnPat.lhs b/compiler/rename/RnPat.lhs index 76be4519d3..1ebedc9e9d 100644 --- a/compiler/rename/RnPat.lhs +++ b/compiler/rename/RnPat.lhs @@ -513,7 +513,7 @@ rnHsRecFields1 ctxt mk_arg (HsRecFields { rec_flds = flds, rec_dotdot = dotdot } = do { env <- getGlobalRdrEnv ; return (case lookupGRE_Name env con of [gre] -> gre_par gre - gres -> WARN( True, ppr con <+> ppr gres ) NoParent) } + gres -> WARN( dflags, True, ppr con <+> ppr gres ) NoParent) } | otherwise = return NoParent dup_flds :: [[RdrName]] |