From fa02a559389a38ed4475016dcb4adfef7d2198eb Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 5 Jul 2014 11:16:41 -0400
Subject: fix windows build

---
 Utility/Directory.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Utility/Directory.hs')

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
-- 
cgit v1.2.3