From: rrt <unknown>
Date: Wed, 11 Jul 2001 10:20:43 +0000 (+0000)
Subject: [project @ 2001-07-11 10:20:43 by rrt]
X-Git-Tag: Approximately_9120_patches~1584
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4fcac006a224637b98c45e06aa9a322935074867;p=ghc-hetmet.git

[project @ 2001-07-11 10:20:43 by rrt]
Fix spacing bogon.
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 399f9db..47ad974 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -685,7 +685,7 @@ slash s1 s2 = s1 ++ ('/' : s2)
 getExecDir :: IO (Maybe String)
 getExecDir = do h <- getModuleHandle Nothing
 		n <- getModuleFileName h
-		return (Just (reverse (tail (dropWhile (not .isSlash) (reverse (unDosifyPath n))))))
+		return (Just (reverse (tail (dropWhile (not . isSlash) (reverse (unDosifyPath n))))))
 #else
 getExecDir :: IO (Maybe String) = do return Nothing
 #endif