[project @ 2005-03-24 09:19:52 by simonmar]

__hscore_getFolderPath is ccall, not stdcall.

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 ()