Skip to content

Commit

Permalink
Resolve objects manually
Browse files Browse the repository at this point in the history
This closes #228, but exposes a problem with the current API; opened a separate
ticket about that (#230).
  • Loading branch information
edsko committed Jul 31, 2014
1 parent da4b480 commit 194c52a
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion server/Server.hs
Original file line number Diff line number Diff line change
Expand Up @@ -451,7 +451,10 @@ ghcHandlePrint RpcConversation{..} var bind forceEval = do
ghcHandleLoad :: RpcConversation -> FilePath -> Bool -> Ghc ()
ghcHandleLoad RpcConversation{..} path unload = do
liftIO $ if unload then Linker.unloadObj path
else Linker.loadObj path
else do Linker.loadObj path
_success <- Linker.resolveObjs
-- TODO: should we do something with success?
return ()
liftIO $ put ()

-- | Handle a run request
Expand Down

0 comments on commit 194c52a

Please sign in to comment.