mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

improve comment

Browse source
This commit is contained in:
Joey Hess 2020-09-07 15:39:07 -04:00
parent 0389a22be3
commit e88ab0c09d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Utility/Directory.hs
View file

@ -145,11 +145,10 @@ moveFile src dest = tryIO (rename src dest) >>= onrename
(Right s) -> return $ isDirectory s (Right s) -> return $ isDirectory s
#endif #endif
{- Removes a file, which may or may not exist, and does not have to {- Removes a file (or symlink), which may or may not exist.
- be a regular file.
- -
- Note that an exception is thrown if the file exists but - Note that an exception is thrown if the file exists but
- cannot be removed. -} - cannot be removed, or if its a directory. -}
nukeFile :: FilePath -> IO () nukeFile :: FilePath -> IO ()
nukeFile file = void $ tryWhenExists go nukeFile file = void $ tryWhenExists go
where where