From da012e1eeba986255ba18ecf35f2f4cced44f9fd Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 2 Aug 2013 12:37:45 -0400
Subject: [PATCH] fix Windows breakage

---
 Utility/SafeCommand.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Utility/SafeCommand.hs b/Utility/SafeCommand.hs
index d24c75dd48..978d4d9c75 100644
--- a/Utility/SafeCommand.hs
+++ b/Utility/SafeCommand.hs
@@ -37,7 +37,9 @@ toCommand = concatMap unwrap
 		| isAlphaNum h || h `elem` pathseps = [s]
 		| otherwise = ["./" ++ s]
 	unwrap (File s) = [s]
-	pathseps = [pathSeparator, '.']
+	-- '/' is explicitly included because it's an alternative
+	-- path separator on Windows.
+	pathseps = [pathSeparator, './']
 
 {- Run a system command, and returns True or False
  - if it succeeded or failed.