diff options
| author | Reid Barton <rwbarton@gmail.com> | 2015-05-19 15:34:31 -0400 |
|---|---|---|
| committer | Reid Barton <rwbarton@gmail.com> | 2015-05-19 15:34:31 -0400 |
| commit | 25d1a716395e349736994759d1fcbb3721f3ee9f (patch) | |
| tree | c55c8405166604efa10f381da441c5a8b32c220f /libraries/base/System/IO.hs | |
| parent | edb8dc5cd2350206fcbe0ab8aa0954b3db50d7ab (diff) | |
| download | haskell-25d1a716395e349736994759d1fcbb3721f3ee9f.tar.gz | |
Fix error messages from open(Binary)TempFileWithDefaultPermissions
Fixes Trac #10430.
Diffstat (limited to 'libraries/base/System/IO.hs')
| -rw-r--r-- | libraries/base/System/IO.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |