LIB: fix copyFile'

This commit is contained in:
Julian Ospald 2015-12-28 01:48:53 +01:00
parent 8ffbd44ce4
commit ec6aa8fab1
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020

View File

@ -224,8 +224,6 @@ recreateSymlink _ _ = throw $ InvalidOperation "wrong input type"
-- |Low-level function to copy a given file to the given path. The fileMode
-- is preserved.
copyFile' :: FilePath -> FilePath -> IO ()
copyFile' InvFN _ = throw InvalidFileName
copyFile' _ InvFN = throw InvalidFileName
copyFile' from to = do
fromFstatus <- getSymbolicLinkStatus from
fromContent <- BS.readFile from