From 1f5536dd423a71d721b7c9563f4680c4f798ebe8 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 28 Sep 2006 15:59:51 +0000 Subject: [PATCH] unbreak :edit patch on Windows --- compiler/ghci/InteractiveUI.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 1.7.10.4