@@ -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_link s1 s2)
232
232
233
233
-- | @removeLink path@ removes the link named @path@.
234
234
--
@@ -241,18 +241,18 @@ removeLink name =
241
241
-- -----------------------------------------------------------------------------
242
242
-- Symbolic Links
243
243
244
- -- | @createSymbolicLink file1 file2 @ creates a symbolic link named @file2 @
245
- -- which points to the file @file1 @.
244
+ -- | @createSymbolicLink name1 name2 @ creates a symbolic link named @name2 @
245
+ -- which points to the file @name1 @.
246
246
--
247
247
-- Symbolic links are interpreted at run-time as if the contents of the link
248
248
-- had been substituted into the path being followed to find a file or directory.
249
249
--
250
250
-- Note: calls @symlink@.
251
251
createSymbolicLink :: FilePath -> FilePath -> IO ()
252
- createSymbolicLink file1 file2 =
253
- withFilePath file1 $ \ s1 ->
254
- withFilePath file2 $ \ s2 ->
255
- throwErrnoIfMinus1_ (" createSymbolicLink " ++ file1 ++ " to " ++ file2 ) (c_symlink s1 s2)
252
+ createSymbolicLink name1 name2 =
253
+ withFilePath name1 $ \ s1 ->
254
+ withFilePath name2 $ \ s2 ->
255
+ throwErrnoIfMinus1_ (" createSymbolicLink (target: " ++ name1 ++ " ) (linkpath: " ++ name2 ++ " ) " ) (c_symlink s1 s2)
256
256
257
257
foreign import ccall unsafe " symlink"
258
258
c_symlink :: CString -> CString -> IO CInt
0 commit comments