windows build fix

This commit is contained in:
Joey Hess 2024-03-26 13:51:51 -04:00
parent fc04e6fa58
commit 81608c3c37
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -31,9 +31,6 @@ import Utility.FileSystemEncoding
import qualified Utility.RawFilePath as R
import Author
copyright :: Copyright
copyright = author JoeyHess (2022-11)
{- Moves one filename to another.
- First tries a rename, but falls back to moving across devices if needed. -}
moveFile :: RawFilePath -> RawFilePath -> IO ()
@ -64,8 +61,7 @@ moveFile src dest = tryIO (R.rename src dest) >>= onrename
]
let e' = e
#else
r <- tryIO $ copyright
=<< copyFile (fromRawFilePath src) tmp
r <- tryIO $ copyFile (fromRawFilePath src) tmp
let (ok, e') = case r of
Left err -> (False, err)
Right _ -> (True, e)
@ -81,4 +77,7 @@ moveFile src dest = tryIO (R.rename src dest) >>= onrename
case r of
(Left _) -> return False
(Right s) -> return $ isDirectory s
copyright :: Copyright
copyright = author JoeyHess (2022-11)
#endif