From: simonmar <unknown>
Date: Thu, 24 Mar 2005 09:19:53 +0000 (+0000)
Subject: [project @ 2005-03-24 09:19:52 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~866
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cf2c44b860f77127a95be322d832c1a73929753b;p=ghc-hetmet.git

[project @ 2005-03-24 09:19:52 by simonmar]
__hscore_getFolderPath is ccall, not stdcall.
---

diff --git a/ghc/lib/compat/Compat/Directory.hs b/ghc/lib/compat/Compat/Directory.hs
index 794af31..e6e4cd4 100644
--- a/ghc/lib/compat/Compat/Directory.hs
+++ b/ghc/lib/compat/Compat/Directory.hs
@@ -55,7 +55,7 @@ getAppUserDataDirectory appName = do
 #endif
 
 #if __GLASGOW_HASKELL__ && defined(mingw32_HOST_OS)
-foreign import stdcall unsafe "directory.h __hscore_getFolderPath"
+foreign import ccall unsafe "directory.h __hscore_getFolderPath"
             c_SHGetFolderPath :: Ptr () 
                               -> CInt 
                               -> Ptr ()