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

fix windows build

Browse source
This commit is contained in:
Joey Hess 2014-07-05 11:16:41 -04:00
parent 0116ee498b
commit c5c4fd76ec
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Utility/Directory.hs
View file

@ -61,10 +61,10 @@ getDirectoryContents' path = loop =<< opendir
ent <- Win32.getFindDataFileName fdat ent <- Win32.getFindDataFileName fdat
v <- tryNonAsync $ Win32.findNextFile h fdat v <- tryNonAsync $ Win32.findNextFile h fdat
case v of case v of
Right True -> Right True -> do
rest <- unsafeInterleaveIO loop (h, fdat) rest <- unsafeInterleaveIO (loop (h, fdat))
return (ent:rest) return (ent:rest)
_ -> _ -> do
void $ tryNonAsync $ Win32.findClose h void $ tryNonAsync $ Win32.findClose h
return [ent] return [ent]
#endif #endif