diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-05 11:16:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-05 11:18:59 -0400 |
| commit | fa02a559389a38ed4475016dcb4adfef7d2198eb (patch) | |
| tree | 66d4332438592862fa19ed701692e13b1f2540b7 /Utility/Directory.hs | |
| parent | 56bf3886e3c1d254fe6e011cd1ea354e03e9758d (diff) | |
fix windows build
Diffstat (limited to 'Utility/Directory.hs')
| -rw-r--r-- | Utility/Directory.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Utility/Directory.hs b/Utility/Directory.hs index e3706e785..e769be7ef 100644 --- a/Utility/Directory.hs +++ b/Utility/Directory.hs @@ -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 |