From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 28 Sep 2006 15:59:51 +0000 (+0000)
Subject: unbreak :edit patch on Windows
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1f5536dd423a71d721b7c9563f4680c4f798ebe8

unbreak :edit patch on Windows
---

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index c38b376..909eaec 100644
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -266,8 +266,10 @@ jumpFunction session@(Session ref) (I# idsPtr) hValues location b
 findEditor = do
   getEnv "EDITOR" 
     `IO.catch` \_ -> do
-#ifdef mingw32_HOST_OS
-	GetWindowsDirectory ++ "\\notepad.exe", or something
+#if 0
+	-- ToDo: mingw32_HOST_OS
+	win <- getWindowsDirectory
+	return (win `joinFileName` "notepad.exe")
 #else
 	return ""
 #endif