Skip to content
Snippets Groups Projects
Commit 312ed216 authored by glguy's avatar glguy Committed by GitHub
Browse files

Merge pull request #84 from nh2/fix-createSymbolicLink-exists-error-message 

Fix error message of `createSymbolicLink`.
parents d0b0e8cf fae5cdc1
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
System/Posix/Files.hsc
+ 1
− 1
View file @ 312ed216
......@@ -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
......
System/Posix/Files/ByteString.hsc
+ 1
− 1
View file @ 312ed216
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment