diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-09-08 10:16:44 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-09-08 10:16:44 +0000 |
| commit | 6077d5930176554fd90a39ebbcb17097c96f93a5 (patch) | |
| tree | ba906d670c22fae118c4142108d602f94e651deb /compiler/ghci | |
| parent | c425356c830621e9480d547eff24134037ced63b (diff) | |
| download | haskell-6077d5930176554fd90a39ebbcb17097c96f93a5.tar.gz | |
Allow TH/annotations to be used with -dynamic
Diffstat (limited to 'compiler/ghci')
| -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 |