import StaticFlags ( opt_IgnoreDotGhci )
import Linker ( showLinkerState, linkPackages )
import Util ( removeSpaces, handle, global, toArgs,
- looksLikeModuleName, prefixMatch, sortLe )
+ looksLikeModuleName, prefixMatch, sortLe,
+ joinFileName )
#ifndef mingw32_HOST_OS
import System.Posix
#else
import GHC.ConsoleHandler ( flushConsole )
import System.Win32 ( setConsoleCP, setConsoleOutputCP )
+import qualified System.Win32
#endif
#ifdef USE_READLINE
findEditor = do
getEnv "EDITOR"
`IO.catch` \_ -> do
-#ifdef mingw32_HOST_OS
- GetWindowsDirectory ++ "\\notepad.exe", or something
+#if mingw32_HOST_OS
+ win <- System.Win32.getWindowsDirectory
+ return (win `joinFileName` "notepad.exe")
#else
return ""
#endif