diff options
author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2017-02-23 23:35:42 -0800 |
---|---|---|
committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2017-02-27 23:00:52 -0800 |
commit | 377bf3736bbeb5aacb0571a7863d1a4323514066 (patch) | |
tree | b2c98a6a5dca946090197531190d8dbb1c264c00 /compiler/backpack | |
parent | c4354027ab73d2f9d04f1e352512eccd8ff09ab0 (diff) | |
download | haskell-377bf3736bbeb5aacb0571a7863d1a4323514066.tar.gz |
Clear import path in --backpack mode to not accidentally pick up source files.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Diffstat (limited to 'compiler/backpack')
-rw-r--r-- | compiler/backpack/DriverBkp.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/backpack/DriverBkp.hs b/compiler/backpack/DriverBkp.hs index e14e2d881f..38b9d4fe5d 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) |