Don't define __hscore_s_issock on Windows

[ghc-base.git] / include / HsBase.h

diff --git a/include/HsBase.h b/include/HsBase.h
index 0ee058d..fd10e11 100644 (file)
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -229,8 +229,10 @@ INLINE int __hscore_s_isdir(mode_t m)  { return S_ISDIR(m);  }
 INLINE int __hscore_s_isfifo(mode_t m) { return S_ISFIFO(m); }
 INLINE int __hscore_s_isblk(mode_t m)  { return S_ISBLK(m);  }
 INLINE int __hscore_s_ischr(mode_t m)  { return S_ISCHR(m);  }
+#if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
 INLINE int __hscore_s_issock(mode_t m) { return S_ISSOCK(m); }
 #endif
+#endif
 
 #if !defined(_MSC_VER) && !defined(__MINGW32__) && !defined(_WIN32)
 INLINE int