Commit bdc687a0 authored by rrt's avatar rrt
Browse files

[project @ 2001-07-18 16:04:31 by rrt]

Fix typo (variable name wrong; wouldn't build)
parent 5c571226
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment