From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 21 May 2009 08:19:32 +0000 (+0000)
Subject: fix warning (and validate)
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ad9ca094d4b9774ebef7dfded73b2e64b830fb90;p=ghc-hetmet.git

fix warning (and validate)
---

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)