diff options
Diffstat (limited to 'compiler/GHC/Unit')
| -rw-r--r-- | compiler/GHC/Unit/Module/Graph.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Unit/Module/Graph.hs b/compiler/GHC/Unit/Module/Graph.hs index a225c50f27..cb3df65322 100644 --- a/compiler/GHC/Unit/Module/Graph.hs +++ b/compiler/GHC/Unit/Module/Graph.hs @@ -276,9 +276,9 @@ showModMsg dflags recomp (ModuleNode _ mod_summary) = dyn_file = op $ msDynObjFilePath mod_summary obj_file = op $ msObjFilePath mod_summary message = case backend dflags of - Interpreter | recomp -> text "interpreted" - NoBackend -> text "nothing" - _ -> + Just Interpreter | recomp -> text "interpreted" + NoBackend -> text "nothing" + _ -> if gopt Opt_BuildDynamicToo dflags then text obj_file <> comma <+> text dyn_file else text obj_file |