copyFile on Windows dies with binary files

Hi, copyFile on Windows with a binary file doesn't work terribly well - it truncates at the first binary zero. The code goes: copyFile :: FilePath -> FilePath -> IO () copyFile fromFPath toFPath = do readFile fromFPath >>= writeFile toFPath try (copyPermissions fromFPath toFPath) return () That should be openFileBinary etc. Thanks Neil