LIB: improve unsafeCopyFile doc

2016-04-10 04:09:29 +02:00 · 2016-04-10 04:09:29 +02:00 · bd022956f5
commit bd022956f5
parent 5bcbbcc69c
1 changed files with 3 additions and 0 deletions
--- a/src/HSFM/FileSystem/FileOperations.hs
+++ b/src/HSFM/FileSystem/FileOperations.hs
@ -323,6 +323,9 @@ unsafeCopyFile cm from@(_ :/ RegFile {}) to@(_ :/ Dir {}) fn
      Strict -> throwFileDoesExist to'
      _      -> return ()

+    -- from sendfile(2) manpage:
+    --   Applications  may  wish  to  fall back to read(2)/write(2) in the case
+    --   where sendfile() fails with EINVAL or ENOSYS.
    catchErrno [eINVAL, eNOSYS]
               (sendFileCopy (fullPathS from) (P.fromAbs to'))
               (void $ fallbackCopy (fullPathS from) (P.fromAbs to'))