diff options
Diffstat (limited to 'compiler/rename/RnFixity.hs')
| -rw-r--r-- | compiler/rename/RnFixity.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/compiler/rename/RnFixity.hs b/compiler/rename/RnFixity.hs index 0bd08574a0..f1bfb380a5 100644 --- a/compiler/rename/RnFixity.hs +++ b/compiler/rename/RnFixity.hs @@ -9,6 +9,8 @@ module RnFixity ( MiniFixityEnv, lookupFixityRn, lookupFixityRn_help, lookupFieldFixityRn, lookupTyFixityRn ) where +import GhcPrelude + import LoadIface import HsSyn import RdrName @@ -177,9 +179,9 @@ lookupTyFixityRn (L _ n) = lookupFixityRn n -- 'Name' if @DuplicateRecordFields@ is in use (Trac #1173). If there are -- multiple possible selectors with different fixities, generate an error. lookupFieldFixityRn :: AmbiguousFieldOcc GhcRn -> RnM Fixity -lookupFieldFixityRn (Unambiguous (L _ rdr) n) +lookupFieldFixityRn (Unambiguous n (L _ rdr)) = lookupFixityRn' n (rdrNameOcc rdr) -lookupFieldFixityRn (Ambiguous (L _ rdr) _) = get_ambiguous_fixity rdr +lookupFieldFixityRn (Ambiguous _ (L _ rdr)) = get_ambiguous_fixity rdr where get_ambiguous_fixity :: RdrName -> RnM Fixity get_ambiguous_fixity rdr_name = do @@ -207,3 +209,4 @@ lookupFieldFixityRn (Ambiguous (L _ rdr) _) = get_ambiguous_fixity rdr format_ambig (elt, fix) = hang (ppr fix) 2 (pprNameProvenance elt) +lookupFieldFixityRn (XAmbiguousFieldOcc{}) = panic "lookupFieldFixityRn" |