X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=include%2FHsBase.h;h=57873e039b64b04270954077999289396e3c8dcb;hb=b7564a80c1ce808319a396bafedd08fc97df05b3;hp=935da37399c32a58efe093787ae5ae05c0886e15;hpb=d5316d049f1880579033f1e0404589fed0686080;p=haskell-directory.git

diff --git a/include/HsBase.h b/include/HsBase.h
index 935da37..57873e0 100644
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -700,6 +700,7 @@ INLINE int __hscore_fstat(int fd, struct stat *buf) {
 // select-related stuff
 
 #if !defined(mingw32_HOST_OS)
+INLINE int  hsFD_SETSIZE(void) { return FD_SETSIZE; }
 INLINE void hsFD_CLR(int fd, fd_set *fds) { FD_CLR(fd, fds); }
 INLINE int  hsFD_ISSET(int fd, fd_set *fds) { return FD_ISSET(fd, fds); }
 INLINE void hsFD_SET(int fd, fd_set *fds) { FD_SET(fd, fds); }