X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=include%2FHsDirectory.h;h=7f33f08cfe74fead33e4a293f4350ebe18777e39;hb=e6e0fcd70d76aecbbbb73bebd1dd18ca6545d667;hp=7185dc8cc5ab30677435cbfd80a04ec15643d17f;hpb=50661a379e7edffada24ffee307321cb9edfb917;p=haskell-directory.git

diff --git a/include/HsDirectory.h b/include/HsDirectory.h
index 7185dc8..7f33f08 100644
--- a/include/HsDirectory.h
+++ b/include/HsDirectory.h
@@ -77,6 +77,7 @@ INLINE int __hscore_X_OK() { return X_OK; }
 INLINE mode_t __hscore_S_IRUSR() { return S_IRUSR; }
 INLINE mode_t __hscore_S_IWUSR() { return S_IWUSR; }
 INLINE mode_t __hscore_S_IXUSR() { return S_IXUSR; }
+INLINE mode_t __hscore_S_IFDIR() { return S_IFDIR; }
 #endif
 
 #if defined(__MINGW32__)