From 25d1a716395e349736994759d1fcbb3721f3ee9f Mon Sep 17 00:00:00 2001 From: Reid Barton Date: Tue, 19 May 2015 15:34:31 -0400 Subject: Fix error messages from open(Binary)TempFileWithDefaultPermissions Fixes Trac #10430. --- libraries/base/System/IO.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libraries/base/System/IO.hs') diff --git a/libraries/base/System/IO.hs b/libraries/base/System/IO.hs index 7b1355273f..e0ee9b15be 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) -- cgit v1.2.1