diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-08-28 11:13:24 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-08-28 11:14:17 +0100 |
| commit | 6c6b001eb2356fa49968412f90ddc22e086f8135 (patch) | |
| tree | 4c80636fd5d79e536e2ac5c87f70f9ea3f615a01 /compiler/main/TidyPgm.lhs | |
| parent | a0b2897ee406e24a05c41768a0fc2395442dfa06 (diff) | |
| download | haskell-6c6b001eb2356fa49968412f90ddc22e086f8135.tar.gz | |
Remove dead lookup_dfun_id (merge-o)
Diffstat (limited to 'compiler/main/TidyPgm.lhs')
| -rw-r--r-- | compiler/main/TidyPgm.lhs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs index 68415c8dac..ba5ccb7d67 100644 --- a/compiler/main/TidyPgm.lhs +++ b/compiler/main/TidyPgm.lhs @@ -417,12 +417,6 @@ tidyProgram hsc_env (ModGuts { mg_module = mod md_anns = anns -- are already tidy }) } - where - lookup_dfun :: TypeEnv -> Var -> Id - lookup_dfun type_env dfun_id - = case lookupTypeEnv type_env (idName dfun_id) of - Just (AnId dfun_id') -> dfun_id' - _other -> pprPanic "lookup_dfun" (ppr dfun_id) lookup_aux_id :: TypeEnv -> Var -> Id lookup_aux_id type_env id |