From: Ross Paterson <ross@soi.city.ac.uk>
Date: Fri, 25 May 2007 00:51:19 +0000 (+0000)
Subject: all but NHC
X-Git-Tag: 2007-09-13~15
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=db4ec35efd8d4bb09373a9d5c45e0985fcbfc331;p=haskell-directory.git

all but NHC
---

diff --git a/cbits/directory.c b/cbits/directory.c
index 812216a..f85b57a 100644
--- 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__ */