[commit: ghc] master: Fix error messages from open(Binary)TempFileWithDefaultPermissions (25d1a71)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/25d1a716395e349736994759d1fcbb3721f3ee9f/ghc

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

commit 25d1a716395e349736994759d1fcbb3721f3ee9f
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.


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

25d1a716395e349736994759d1fcbb3721f3ee9f
 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)