Skip to content

Instantly share code, notes, and snippets.

@wz1000
Created November 20, 2020 20:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save wz1000/897642cb68a9062b6e8f9dcf109af789 to your computer and use it in GitHub Desktop.
Save wz1000/897642cb68a9062b6e8f9dcf109af789 to your computer and use it in GitHub Desktop.
diff --git a/session-loader/Development/IDE/Session.hs b/session-loader/Development/IDE/Session.hs
index 9a68b8c5..25ac30da 100644
--- a/session-loader/Development/IDE/Session.hs
+++ b/session-loader/Development/IDE/Session.hs
@@ -644,7 +644,7 @@ setOptions (ComponentOptions theOpts compRoot _) dflags = do
setLinkerOptions :: DynFlags -> DynFlags
setLinkerOptions df = df {
ghcLink = LinkInMemory
- , hscTarget = HscNothing
+ , hscTarget = HscAsm
, ghcMode = CompManager
}
diff --git a/src/Development/IDE/Core/Rules.hs b/src/Development/IDE/Core/Rules.hs
index 049c7c88..631bbb27 100644
--- a/src/Development/IDE/Core/Rules.hs
+++ b/src/Development/IDE/Core/Rules.hs
@@ -984,7 +984,7 @@ getClientSettingsRule = defineEarlyCutOffNoFile $ \GetClientSettings -> do
getLinkableType :: NormalizedFilePath -> Action (Maybe LinkableType)
getLinkableType f = do
needsComp <- use_ NeedsCompilation f
- pure $ if needsComp then Just BCOLinkable else Nothing
+ pure $ if needsComp then Just ObjectLinkable else Nothing
needsCompilationRule :: Rules ()
needsCompilationRule = defineEarlyCutoff $ \NeedsCompilation file -> do
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment