eliminate more HOST_OS tests

[haskell-directory.git] / include / dirUtils.h

diff --git a/include/dirUtils.h b/include/dirUtils.h
index 2330912..801d807 100644 (file)
--- a/include/dirUtils.h
+++ b/include/dirUtils.h
@@ -9,7 +9,7 @@
 extern HsInt __hscore_readdir(HsAddr dirPtr, HsAddr pDirEnt);
 extern HsInt __hscore_renameFile(HsAddr src, HsAddr dest);
 
-#if defined(mingw32_HOST_OS)
+#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
 extern int __hscore_getFolderPath(HWND hwndOwner,
                                  int nFolder,
                                  HANDLE hToken,