Fix error messages from open(Binary)TempFileWithDefaultPermissions
authorReid Barton <rwbarton@gmail.com>
Tue, 19 May 2015 19:34:31 +0000 (15:34 -0400)
committerReid Barton <rwbarton@gmail.com>
Tue, 19 May 2015 19:34:31 +0000 (15:34 -0400)
Fixes Trac #10430.

libraries/base/System/IO.hs

index 7b13552..e0ee9b1 100644 (file)
@@ -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)