Commit 6077d593 authored by Simon Marlow's avatar Simon Marlow
Browse files

Allow TH/annotations to be used with -dynamic

parent c425356c
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment