[commit: ghc] master: Clear import path in --backpack mode to not accidentally pick up source files. (377bf37)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/377bf3736bbeb5aacb0571a7863d1a4323514066/ghc

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

commit 377bf3736bbeb5aacb0571a7863d1a4323514066
Author: Edward Z. Yang <ezyang at cs.stanford.edu>
Date:   Thu Feb 23 23:35:42 2017 -0800

    Clear import path in --backpack mode to not accidentally pick up source files.
    
    Signed-off-by: Edward Z. Yang <ezyang at cs.stanford.edu>


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

377bf3736bbeb5aacb0571a7863d1a4323514066
 compiler/backpack/DriverBkp.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/backpack/DriverBkp.hs b/compiler/backpack/DriverBkp.hs
index e14e2d8..38b9d4f 100644
--- a/compiler/backpack/DriverBkp.hs
+++ b/compiler/backpack/DriverBkp.hs
@@ -183,6 +183,8 @@ withBkpSession cid insts deps session_type do_this = do
         outputFile  = if session_type == ExeSession
                         then outputFile dflags
                         else Nothing,
+        -- Clear the import path so we don't accidentally grab anything
+        importPaths = [],
         -- Synthesized the flags
         packageFlags = packageFlags dflags ++ map (\(uid0, rn) ->
           let uid = unwireUnitId dflags (improveUnitId (getPackageConfigMap dflags) $ renameHoleUnitId dflags (listToUFM insts) uid0)