diff options
Diffstat (limited to 'compiler/main/CodeOutput.hs')
| -rw-r--r-- | compiler/main/CodeOutput.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/CodeOutput.hs b/compiler/main/CodeOutput.hs index 7c6dbdab53..34cada3ff9 100644 --- a/compiler/main/CodeOutput.hs +++ b/compiler/main/CodeOutput.hs @@ -23,9 +23,9 @@ import Cmm ( RawCmmGroup ) import HscTypes import DynFlags import Config -import SysTools import Stream (Stream) import qualified Stream +import FileCleanup import ErrUtils import Outputable @@ -202,7 +202,7 @@ outputForeignStubs :: DynFlags -> Module -> ModLocation -> ForeignStubs outputForeignStubs dflags mod location stubs = do let stub_h = mkStubPaths dflags (moduleName mod) location - stub_c <- newTempName dflags "c" + stub_c <- newTempName dflags TFL_CurrentModule "c" case stubs of NoStubs -> @@ -276,6 +276,6 @@ outputForeignFile dflags lang file_contents LangCxx -> return "cpp" LangObjc -> return "m" LangObjcxx -> return "mm" - fp <- newTempName dflags extension + fp <- newTempName dflags TFL_CurrentModule extension writeFile fp file_contents return fp |