diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-05-21 08:19:32 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-05-21 08:19:32 +0000 |
| commit | ad9ca094d4b9774ebef7dfded73b2e64b830fb90 (patch) | |
| tree | 4e29b896554abba3aed3a03597948c35751fdf9d /utils | |
| parent | 55d900daf982b0ad18a715b7f83c3bd2deb5138d (diff) | |
| download | haskell-ad9ca094d4b9774ebef7dfded73b2e64b830fb90.tar.gz | |
fix warning (and validate)
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index b1aaaba7b0..e16511fb0c 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) |