From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Fri, 10 Nov 2006 11:32:22 +0000 (+0000)
Subject: __hscore_long_path_size is not portable beyond GHC
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=567080c906535534628b1ab83a4a4425dcd4bb5e

__hscore_long_path_size is not portable beyond GHC
---

diff --git a/System/Directory.hs b/System/Directory.hs
index 2a80587..9b70480 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -870,11 +870,15 @@ foreign import ccall unsafe "__hscore_S_IRUSR" s_IRUSR :: CMode
 foreign import ccall unsafe "__hscore_S_IWUSR" s_IWUSR :: CMode
 foreign import ccall unsafe "__hscore_S_IXUSR" s_IXUSR :: CMode
 
-#endif /* __GLASGOW_HASKELL__ */
-
 foreign import ccall unsafe "__hscore_long_path_size"
   long_path_size :: Int
 
+#else
+long_path_size :: Int
+long_path_size = 2048	/* guess? */
+
+#endif /* __GLASGOW_HASKELL__ */
+
 {- | Returns the current user's home directory.
 
 The directory returned is expected to be writable by the current user,