diff options
| -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 8d0d6bab33..a7e9492dea 100644 --- a/compiler/ghci/Linker.lhs +++ b/compiler/ghci/Linker.lhs @@ -528,7 +528,7 @@ dieWith span msg = ghcError (ProgramError (showSDoc (mkLocMessage span msg))) checkNonStdWay :: DynFlags -> SrcSpan -> IO (Maybe String) checkNonStdWay dflags srcspan = do let tag = buildTag dflags - if null tag then return Nothing else do + if null tag || tag == "dyn" then return Nothing else do let default_osuf = phaseInputExt StopLn if objectSuf dflags == default_osuf then failNonStd srcspan |