From ad9ca094d4b9774ebef7dfded73b2e64b830fb90 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 21 May 2009 08:19:32 +0000 Subject: [PATCH] fix warning (and validate) --- utils/ghc-pkg/Main.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index b1aaaba..e16511f 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) -- 1.7.10.4