X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FLinker.lhs;h=a7e9492deaa8d6e3124ca4db2ae2d63d6a8c9c5d;hb=8ee215b9aa2fe37b435e404aad8bb07c6ce1836d;hp=8d0d6bab33e0d93c07547b2f87f879f86c6dcbcd;hpb=f871cf1bf889704a4ec1f0063ad4d96f31453ea3;p=ghc-hetmet.git

diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs
index 8d0d6ba..a7e9492 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