Use System.FilePath

[ghc-hetmet.git] / compiler / ghci / InteractiveUI.hs

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index a0c76ec..11c57aa 100644 (file)
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -264,7 +264,7 @@ findEditor = do
     `IO.catch` \_ -> do
 #if mingw32_HOST_OS
        win <- System.Win32.getWindowsDirectory
-       return (win `joinFileName` "notepad.exe")
+       return (win </> "notepad.exe")
 #else
        return ""
 #endif