diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2016-09-11 14:35:27 +0100 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2016-09-11 14:35:27 +0100 |
commit | 04184a2a582d175dad4a696f5047cd66bfe26f8e (patch) | |
tree | 38d05478c0fcb71011a28bdbe81bc0474c7246cf /compiler/rename | |
parent | 158288bdd4e2391982936f796f3004d7d7b5d8df (diff) | |
download | haskell-04184a2a582d175dad4a696f5047cd66bfe26f8e.tar.gz |
Remove uses of mkMatchGroupName
You can now just use `mkMatchGroup`.
Diffstat (limited to 'compiler/rename')
-rw-r--r-- | compiler/rename/RnBinds.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/rename/RnBinds.hs b/compiler/rename/RnBinds.hs index 4af699a274..1eadf29a95 100644 --- a/compiler/rename/RnBinds.hs +++ b/compiler/rename/RnBinds.hs @@ -1028,7 +1028,7 @@ rnMatchGroup ctxt rnBody (MG { mg_alts = L _ ms, mg_origin = origin }) = do { empty_case_ok <- xoptM LangExt.EmptyCase ; when (null ms && not empty_case_ok) (addErr (emptyCaseErr ctxt)) ; (new_ms, ms_fvs) <- mapFvRn (rnMatch ctxt rnBody) ms - ; return (mkMatchGroupName origin new_ms, ms_fvs) } + ; return (mkMatchGroup origin new_ms, ms_fvs) } rnMatch :: Outputable (body RdrName) => HsMatchContext Name -> (Located (body RdrName) -> RnM (Located (body Name), FreeVars)) |