X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FDirectory.hs;h=9b7048079027f47ad3a687528c885dc3e3f48c2f;hb=ca62dee208f7d904983ae38249de280ad62d7c4f;hp=6fff3adce0f71352e15f05e339ee8afc55d7ff1b;hpb=a8fcc2bffba24721ff0d638c170b13f2d968b189;p=ghc-base.git

diff --git a/System/Directory.hs b/System/Directory.hs
index 6fff3ad..9b70480 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -72,7 +72,6 @@ import Control.Monad           ( when, unless )
 
 #ifdef __NHC__
 import Directory
-import NHC.FFI
 #endif /* __NHC__ */
 
 #ifdef __HUGS__
@@ -871,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,