LIB: fix copyFile'

This commit is contained in:
2015-12-28 01:48:53 +01:00
parent 8ffbd44ce4
commit ec6aa8fab1

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