From: rrt <unknown>
Date: Wed, 18 Jul 2001 16:04:31 +0000 (+0000)
Subject: [project @ 2001-07-18 16:04:31 by rrt]
X-Git-Tag: Approximately_9120_patches~1516
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=bdc687a0d8ad81a4cadb3dce848b662569b8111f

[project @ 2001-07-18 16:04:31 by rrt]
Fix typo (variable name wrong; wouldn't build)
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index e1f5b51..9c1465f 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -694,7 +694,7 @@ getExecDir = do let len = 2048 -- plenty, PATH_MAX is 512 under Win32.
 		if ret == 0 then return Nothing
 		            else do s <- peekCString buf
 				    destructArray (fromIntegral len) buf
-				    return (Just (reverse (drop (length "/bin/ghc.exe") (reverse (unDosifyPath n)))))
+				    return (Just (reverse (drop (length "/bin/ghc.exe") (reverse (unDosifyPath s)))))
 
 
 foreign import stdcall "GetModuleFileNameA" getModuleFileName :: Addr -> CString -> Int32 -> IO Int32