X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FInteractiveUI.hs;h=909eaeca0a273bb1667fcff76a134557b057e43d;hb=1f5536dd423a71d721b7c9563f4680c4f798ebe8;hp=c38b37634d69bb539478d73e3cdf4bbda39c8f93;hpb=939ce676b146713bbe0de42dec6c30da2c948049;p=ghc-hetmet.git

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