X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fcompat%2FCompat%2FDirectory.hs;fp=ghc%2Flib%2Fcompat%2FCompat%2FDirectory.hs;h=bce1da6293434bbcff89da6bde4545f9b49bb2cf;hb=4c46b43215295868b332c40ba0d63520e6433536;hp=e6e4cd4a2c66b37e07aa52cfc3389563986108b5;hpb=32d1cd7c071aa551d45ae0b44eb48a82d4a138a2;p=ghc-hetmet.git

diff --git a/ghc/lib/compat/Compat/Directory.hs b/ghc/lib/compat/Compat/Directory.hs
index e6e4cd4..bce1da6 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 ccall unsafe "directory.h __hscore_getFolderPath"
+foreign import stdcall unsafe "SHGetFolderPathA"
             c_SHGetFolderPath :: Ptr () 
                               -> CInt 
                               -> Ptr ()