Tiny refactor
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 6 Jan 2016 08:17:01 +0000 (08:17 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Thu, 7 Jan 2016 08:37:23 +0000 (08:37 +0000)
compiler/iface/MkIface.hs

index 644bea9..98f08fd 100644 (file)
@@ -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