2020-05-18 15:59:07 +03:00
|
|
|
module System.File
|
|
|
|
|
|
2021-08-30 17:31:37 +03:00
|
|
|
import Data.Buffer
|
|
|
|
|
|
|
|
|
|
import public System.File.Buffer
|
|
|
|
|
import public System.File.Error
|
|
|
|
|
import public System.File.Handle
|
|
|
|
|
import public System.File.Meta
|
|
|
|
|
import public System.File.Mode
|
|
|
|
|
import public System.File.Permissions
|
|
|
|
|
import public System.File.Process
|
|
|
|
|
import public System.File.ReadWrite
|
|
|
|
|
import public System.File.Types
|
|
|
|
|
import public System.File.Virtual
|
|
|
|
|
|
|
|
|
|
export
|
|
|
|
|
copyFile : HasIO io => String -> String -> io (Either FileError ())
|
|
|
|
|
copyFile src dest
|
|
|
|
|
= do Right buf <- createBufferFromFile src
|
|
|
|
|
| Left err => pure (Left err)
|
|
|
|
|
writeBufferToFile dest buf !(rawSize buf)
|
