[commit: ghc] master: Tiny refactor (3f98045)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/3f9804578b7aef879d757d8f5d22df437a072dbf/ghc

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

commit 3f9804578b7aef879d757d8f5d22df437a072dbf
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Jan 6 08:17:01 2016 +0000

    Tiny refactor


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

3f9804578b7aef879d757d8f5d22df437a072dbf
 compiler/iface/MkIface.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/iface/MkIface.hs b/compiler/iface/MkIface.hs
index 644bea9..98f08fd 100644
--- a/compiler/iface/MkIface.hs
+++ b/compiler/iface/MkIface.hs
@@ -353,14 +353,15 @@ mkHashFun hsc_env eps
       let
         mod = ASSERT2( isExternalName name, ppr name ) nameModule name
         occ = nameOccName name
-        iface = lookupIfaceByModule (hsc_dflags hsc_env) hpt pit mod `orElse`
+        iface = lookupIfaceByModule dflags hpt pit mod `orElse`
                    pprPanic "lookupVers2" (ppr mod <+> ppr occ)
       in
         snd (mi_hash_fn iface occ `orElse`
                   pprPanic "lookupVers1" (ppr mod <+> ppr occ))
   where
-      hpt = hsc_HPT hsc_env
-      pit = eps_PIT eps
+      dflags = hsc_dflags hsc_env
+      hpt    = hsc_HPT hsc_env
+      pit    = eps_PIT eps
 
 -- ---------------------------------------------------------------------------
 -- Compute fingerprints for the interface