diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-20 12:12:08 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-20 12:12:08 +0000 |
| commit | 740618f2b7d822f53528d271ccfb617c8ce84c55 (patch) | |
| tree | ff756fcb49ae44d8d2ecf9ee28440db9ea9526c3 /compiler/ghci/Linker.lhs | |
| parent | b0758d03f1a00ab0adf57f8157602ef22e8cdd13 (diff) | |
| download | haskell-740618f2b7d822f53528d271ccfb617c8ce84c55.tar.gz | |
Make -dynamic a proper way, so we read the .dyn_hi files
Also, I cleaned up some of the way-related infrastructure, removing
two global variables.
There's more that could be done here, but it's a start. The way flags
probably don't need to be static any more.
Diffstat (limited to 'compiler/ghci/Linker.lhs')
| -rw-r--r-- | compiler/ghci/Linker.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs index 5c05122ed4..419cb4f968 100644 --- a/compiler/ghci/Linker.lhs +++ b/compiler/ghci/Linker.lhs @@ -526,7 +526,7 @@ dieWith span msg = ghcError (ProgramError (showSDoc (mkLocMessage span msg))) checkNonStdWay :: DynFlags -> SrcSpan -> IO (Maybe String) checkNonStdWay dflags srcspan = do - tag <- readIORef v_Build_tag + let tag = buildTag dflags if null tag then return Nothing else do let default_osuf = phaseInputExt StopLn if objectSuf dflags == default_osuf |