X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FDirectory.hs;h=8db968645c52ec9278da5b02d06604a93f33383e;hb=eb5ebe98ecbfd0e8a4781d45832910bbb5c09f1c;hp=cafe759c635548d616769404613efef306fc2520;hpb=4a83f322cdf4374c7e4bce4c7f32ad07203d55b8;p=ghc-base.git

diff --git a/System/Directory.hs b/System/Directory.hs
index cafe759..8db9686 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -954,7 +954,7 @@ getTemporaryDirectory = do
 #endif
 
 #if __GLASGOW_HASKELL__ && defined(mingw32_HOST_OS)
-foreign import stdcall unsafe "dirUtils.h __hscore_getFolderPath"
+foreign import ccall unsafe "__hscore_getFolderPath"
             c_SHGetFolderPath :: Ptr () 
                               -> CInt 
                               -> Ptr ()