diff options
author | Eric Mertens <emertens@gmail.com> | 2017-02-13 17:07:40 -0800 |
---|---|---|
committer | GitHub <noreply@github.com> | 2017-02-13 17:07:40 -0800 |
commit | 312ed2165d04b4c8db7b07133209f69b19b45745 (patch) | |
tree | a775a4b5ec464c686ab50880d6c03f35cf62fcbe | |
parent | d0b0e8cf5a7fa5b9dc500d2f623258200818cb16 (diff) | |
parent | fae5cdc103edafb55ef86699dd9571f35b8cf8ed (diff) |
Merge pull request #84 from nh2/fix-createSymbolicLink-exists-error-message
Fix error message of `createSymbolicLink`.
-rw-r--r-- | System/Posix/Files.hsc | 2 | ||||
-rw-r--r-- | System/Posix/Files/ByteString.hsc | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Files.hsc b/System/Posix/Files.hsc index bbda084..749f5da 100644 --- a/System/Posix/Files.hsc +++ b/System/Posix/Files.hsc @@ -253,7 +253,7 @@ createSymbolicLink :: FilePath -> FilePath -> IO () createSymbolicLink file1 file2 = withFilePath file1 $ \s1 -> withFilePath file2 $ \s2 -> - throwErrnoPathIfMinus1_ "createSymbolicLink" file1 (c_symlink s1 s2) + throwErrnoPathIfMinus1_ "createSymbolicLink" file2 (c_symlink s1 s2) foreign import ccall unsafe "symlink" c_symlink :: CString -> CString -> IO CInt diff --git a/System/Posix/Files/ByteString.hsc b/System/Posix/Files/ByteString.hsc index 872817e..23a44e3 100644 --- a/System/Posix/Files/ByteString.hsc +++ b/System/Posix/Files/ByteString.hsc @@ -259,7 +259,7 @@ createSymbolicLink :: RawFilePath -> RawFilePath -> IO () createSymbolicLink file1 file2 = withFilePath file1 $ \s1 -> withFilePath file2 $ \s2 -> - throwErrnoPathIfMinus1_ "createSymbolicLink" file1 (c_symlink s1 s2) + throwErrnoPathIfMinus1_ "createSymbolicLink" file2 (c_symlink s1 s2) foreign import ccall unsafe "symlink" c_symlink :: CString -> CString -> IO CInt |