projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-12-15 12:51:15 by simonpj]
[ghc-hetmet.git]
/
ghc
/
lib
/
compat
/
Compat
/
Directory.hs
diff --git
a/ghc/lib/compat/Compat/Directory.hs
b/ghc/lib/compat/Compat/Directory.hs
index
12c9d94
..
60f372a
100644
(file)
--- a/
ghc/lib/compat/Compat/Directory.hs
+++ b/
ghc/lib/compat/Compat/Directory.hs
@@
-57,7
+57,8
@@
foreign import stdcall unsafe "SHGetFolderPathA"
-> CString
-> IO CInt
-> CString
-> IO CInt
-foreign import ccall unsafe "__hscore_long_path_size"
+-- __compat_long_path_size defined in cbits/directory.c
+foreign import ccall unsafe "__compat_long_path_size"
long_path_size :: Int
foreign import ccall unsafe "__hscore_CSIDL_APPDATA" csidl_APPDATA :: CInt
long_path_size :: Int
foreign import ccall unsafe "__hscore_CSIDL_APPDATA" csidl_APPDATA :: CInt