diff options
Diffstat (limited to 'compiler/GHC/SysTools.hs')
-rw-r--r-- | compiler/GHC/SysTools.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/compiler/GHC/SysTools.hs b/compiler/GHC/SysTools.hs index 9e707c3bc4..91b72513f3 100644 --- a/compiler/GHC/SysTools.hs +++ b/compiler/GHC/SysTools.hs @@ -36,6 +36,7 @@ import GHC.Settings.Utils import GHC.Utils.Error import GHC.Utils.Panic +import GHC.Utils.Logger import GHC.Driver.Session import Control.Monad.Trans.Except (runExceptT) @@ -185,13 +186,13 @@ for more information. -} -copy :: DynFlags -> String -> FilePath -> FilePath -> IO () -copy dflags purpose from to = copyWithHeader dflags purpose Nothing from to +copy :: Logger -> DynFlags -> String -> FilePath -> FilePath -> IO () +copy logger dflags purpose from to = copyWithHeader logger dflags purpose Nothing from to -copyWithHeader :: DynFlags -> String -> Maybe String -> FilePath -> FilePath +copyWithHeader :: Logger -> DynFlags -> String -> Maybe String -> FilePath -> FilePath -> IO () -copyWithHeader dflags purpose maybe_header from to = do - showPass dflags purpose +copyWithHeader logger dflags purpose maybe_header from to = do + showPass logger dflags purpose hout <- openBinaryFile to WriteMode hin <- openBinaryFile from ReadMode |