[commit: ghc] ghc-7.10: Fix error messages from open(Binary)TempFileWithDefaultPermissions (079f228)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-7.10
Link       : http://ghc.haskell.org/trac/ghc/changeset/079f228c7e0fc177d68d50df991235f088200672/ghc

>---------------------------------------------------------------

commit 079f228c7e0fc177d68d50df991235f088200672
Author: Reid Barton <rwbarton at gmail.com>
Date:   Tue May 19 15:34:31 2015 -0400

    Fix error messages from open(Binary)TempFileWithDefaultPermissions
    
    Fixes Trac #10430.
    
    (cherry picked from commit 25d1a716395e349736994759d1fcbb3721f3ee9f)


>---------------------------------------------------------------

079f228c7e0fc177d68d50df991235f088200672
 libraries/base/System/IO.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libraries/base/System/IO.hs b/libraries/base/System/IO.hs
index 7b13552..e0ee9b1 100644
--- a/libraries/base/System/IO.hs
+++ b/libraries/base/System/IO.hs
@@ -453,13 +453,13 @@ openBinaryTempFile tmp_dir template
 openTempFileWithDefaultPermissions :: FilePath -> String
                                    -> IO (FilePath, Handle)
 openTempFileWithDefaultPermissions tmp_dir template
-    = openTempFile' "openBinaryTempFile" tmp_dir template False 0o666
+    = openTempFile' "openTempFileWithDefaultPermissions" tmp_dir template False 0o666
 
 -- | Like 'openBinaryTempFile', but uses the default file permissions
 openBinaryTempFileWithDefaultPermissions :: FilePath -> String
                                          -> IO (FilePath, Handle)
 openBinaryTempFileWithDefaultPermissions tmp_dir template
-    = openTempFile' "openBinaryTempFile" tmp_dir template True 0o666
+    = openTempFile' "openBinaryTempFileWithDefaultPermissions" tmp_dir template True 0o666
 
 openTempFile' :: String -> FilePath -> String -> Bool -> CMode
               -> IO (FilePath, Handle)