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

more OsPath conversion

Browse source 
Sponsored-by: Eve
This commit is contained in:
Joey Hess 2025-01-24 14:49:10 -04:00
parent dd01406018
commit aa0f3f31da
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
23 changed files with 155 additions and 166 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Utility/Directory/Stream.hs
View file

@ -33,6 +33,7 @@ import qualified System.Posix.Directory.ByteString as Posix
import Utility.Directory
import Utility.Exception
import Utility.FileSystemEncoding
import Utility.OsPath
#ifndef mingw32_HOST_OS
data DirectoryHandle = DirectoryHandle IsOpen Posix.DirStream
@ -117,5 +118,5 @@ isDirectoryPopulated d = bracket (openDirectory d) closeDirectory check
case v of
Nothing -> return False
Just f
| not (dirCruft f) -> return True
| not (toOsPath f `elem` dirCruft) -> return True
| otherwise -> check h