From 6077d5930176554fd90a39ebbcb17097c96f93a5 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 8 Sep 2009 10:16:44 +0000 Subject: [PATCH] Allow TH/annotations to be used with -dynamic --- compiler/ghci/Linker.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4