diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index b1aaaba7b09d0c11b38d3e688d00294f6f4cd8b6..e16511fb0c0dadd4c5eef5443fe6ea2c6f6dc51c 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -1189,8 +1189,7 @@ getLibDir = fmap (fmap (</> "lib")) $ getExecDir "/bin/ghc-pkg.exe" getExecDir :: String -> IO (Maybe String) getExecDir cmd = getExecPath >>= maybe (return Nothing) removeCmdSuffix - where unDosifyPath = subst '\\' '/' - initN n = reverse . drop n . reverse + where initN n = reverse . drop n . reverse removeCmdSuffix = return . Just . initN (length cmd) . unDosifyPath getExecPath :: IO (Maybe String)