diff options
author | 2014-07-05 11:16:41 -0400 | |
---|---|---|
committer | 2014-07-05 11:18:59 -0400 | |
commit | fa02a559389a38ed4475016dcb4adfef7d2198eb (patch) | |
tree | 66d4332438592862fa19ed701692e13b1f2540b7 | |
parent | 56bf3886e3c1d254fe6e011cd1ea354e03e9758d (diff) |
fix windows build
-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 |