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

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
Show stats 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
v <- tryNonAsync $ Win32.findNextFile h fdat
case v of
Right True ->
rest <- unsafeInterleaveIO loop (h, fdat)
Right True -> do
rest <- unsafeInterleaveIO (loop (h, fdat))
return (ent:rest)
_ ->
_ -> do
void $ tryNonAsync $ Win32.findClose h
return [ent]
#endif