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