File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -228,7 +228,7 @@ createLink :: FilePath -> FilePath -> IO ()
228
228
createLink name1 name2 =
229
229
withFilePath name1 $ \ s1 ->
230
230
withFilePath name2 $ \ s2 ->
231
- throwErrnoIfMinus1_ (" createLink " ++ name1++ " to " ++ name2) (c_link s1 s2)
231
+ throwErrnoIfMinus1_ (" createLink (target: " ++ name1++ " ) (linkpath: " ++ name2++ " ) " ) (c_symlink s1 s2)
232
232
233
233
-- | @removeLink path@ removes the link named @path@.
234
234
--
@@ -252,7 +252,7 @@ createSymbolicLink :: FilePath -> FilePath -> IO ()
252
252
createSymbolicLink file1 file2 =
253
253
withFilePath file1 $ \ s1 ->
254
254
withFilePath file2 $ \ s2 ->
255
- throwErrnoIfMinus1_ (" createSymbolicLink " ++ file1++ " to " ++ file2) (c_symlink s1 s2)
255
+ throwErrnoIfMinus1_ (" createSymbolicLink (target: " ++ file1++ " ) (linkpath: " ++ file2++ " ) " ) (c_symlink s1 s2)
256
256
257
257
foreign import ccall unsafe " symlink"
258
258
c_symlink :: CString -> CString -> IO CInt
You can’t perform that action at this time.
0 commit comments