projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9dd1b6c
)
[project @ 2004-08-25 17:07:14 by sof]
author
sof
<unknown>
Wed, 25 Aug 2004 17:07:14 +0000
(17:07 +0000)
committer
sof
<unknown>
Wed, 25 Aug 2004 17:07:14 +0000
(17:07 +0000)
wibble
ghc/utils/ghc-pkg/Main.hs
patch
|
blob
|
history
diff --git
a/ghc/utils/ghc-pkg/Main.hs
b/ghc/utils/ghc-pkg/Main.hs
index
954d1f6
..
7eb4f3a
100644
(file)
--- a/
ghc/utils/ghc-pkg/Main.hs
+++ b/
ghc/utils/ghc-pkg/Main.hs
@@
-528,7
+528,7
@@
getExecDir cmd
where
len = 2048::Int -- Plenty, PATH_MAX is 512 under Win32.
-foreign import stdcall "GetModuleFileNameA" unsafe
+foreign import stdcall unsafe "GetModuleFileNameA"
getModuleFileName :: Ptr () -> CString -> Int -> IO Int32
#else
getExecDir :: String -> IO (Maybe String)