From: Ian Lynagh <igloo@earth.li>
Date: Sun, 20 May 2007 15:43:57 +0000 (+0000)
Subject: Tiny refactoring
X-Git-Tag: directory_2007-05-24~1
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4923376753ab1887fcce354e07cf012b82aefe2a;p=haskell-directory.git

Tiny refactoring
---

diff --git a/include/HsDirectory.h b/include/HsDirectory.h
index 83d7ed9..3680378 100644
--- a/include/HsDirectory.h
+++ b/include/HsDirectory.h
@@ -47,15 +47,17 @@ extern int __hscore_getFolderPath(HWND hwndOwner,
 # endif
 #endif
 
-#ifdef PATH_MAX
 /* A size that will contain many path names, but not necessarily all
  * (PATH_MAX is not defined on systems with unlimited path length,
  * e.g. the Hurd).
  */
-INLINE HsInt __hscore_long_path_size() { return PATH_MAX; }
+INLINE HsInt __hscore_long_path_size() {
+#ifdef PATH_MAX
+    return PATH_MAX;
 #else
-INLINE HsInt __hscore_long_path_size() { return 4096; }
+    return 4096;
 #endif
+}
 
 #ifdef R_OK
 INLINE int __hscore_R_OK() { return R_OK; }