[commit: ghc] master: Remove dead lookup_dfun_id (merge-o) (6c6b001)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/6c6b001eb2356fa49968412f90ddc22e086f8135/ghc

>---------------------------------------------------------------

commit 6c6b001eb2356fa49968412f90ddc22e086f8135
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Aug 28 11:13:24 2014 +0100

    Remove dead lookup_dfun_id (merge-o)


>---------------------------------------------------------------

6c6b001eb2356fa49968412f90ddc22e086f8135
 compiler/main/TidyPgm.lhs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index 68415c8..ba5ccb7 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