From 567080c906535534628b1ab83a4a4425dcd4bb5e Mon Sep 17 00:00:00 2001 From: "Malcolm.Wallace@cs.york.ac.uk" Date: Fri, 10 Nov 2006 11:32:22 +0000 Subject: [PATCH] __hscore_long_path_size is not portable beyond GHC --- System/Directory.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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, -- 1.7.10.4