all but NHC

[haskell-directory.git] / cbits / directory.c

diff --git a/cbits/directory.c b/cbits/directory.c
index 812216a..f85b57a 100644 (file)
--- a/cbits/directory.c
+++ b/cbits/directory.c
@@ -1,4 +1,4 @@
-#ifdef __GLASGOW_HASKELL__
+#ifndef __NHC__
 /* 
  * (c) The University of Glasgow 2002
  *
@@ -50,6 +50,6 @@ __hscore_getFolderPath(HWND hwndOwner,
     return (int)funcPtr(hwndOwner,nFolder,hToken,dwFlags,pszPath);
     /* ToDo: unload the DLL on shutdown? */
 }
-#endif
-#endif
+#endif /* WIN32 */
+#endif /* !__NHC__ */