diff options
| -rw-r--r-- | ghc/InteractiveUI.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 0dc32a7752..8b9e8192fc 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1157,12 +1157,6 @@ loadModule_ fs = loadModule (zip fs (repeat Nothing)) >> return () loadModule' :: [(FilePath, Maybe Phase)] -> InputT GHCi SuccessFlag loadModule' files = do - -- unload first - _ <- GHC.abandonAll - lift discardActiveBreakPoints - GHC.setTargets [] - _ <- GHC.load LoadAllTargets - let (filenames, phases) = unzip files exp_filenames <- mapM expandPath filenames let files' = zip exp_filenames phases @@ -1173,6 +1167,12 @@ loadModule' files = do -- require some re-working of the GHC interface, so we'll leave it -- as a ToDo for now. + -- unload first + _ <- GHC.abandonAll + lift discardActiveBreakPoints + GHC.setTargets [] + _ <- GHC.load LoadAllTargets + GHC.setTargets targets doLoad False LoadAllTargets |