diff options
Diffstat (limited to 'System/Posix/Files.hsc')
-rw-r--r-- | System/Posix/Files.hsc | 2 |
1 files changed, 1 insertions, 1 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 |