From: Ross Paterson <ross@soi.city.ac.uk>
Date: Mon, 1 May 2006 14:43:22 +0000 (+0000)
Subject: fixes for non-GHC
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8bbf10c35814430d1fd7835d71ff2ae3dbb2bad5;p=haskell-directory.git

fixes for non-GHC
---

diff --git a/System/Directory.hs b/System/Directory.hs
index e3b3ed3..0ea1d47 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -591,7 +591,7 @@ findExecutable binary =
               return (Just fpath)
       else return Nothing
 
-foreign import stdcall unsafe "SearchPath"
+foreign import stdcall unsafe "SearchPathA"
             c_SearchPath :: CString
                          -> CString
                          -> CString
@@ -599,6 +599,10 @@ foreign import stdcall unsafe "SearchPath"
                          -> CString
                          -> Ptr CString
                          -> IO CInt
+# if defined(__GLASGOW_HASKELL__)
+long_path_size :: Int
+long_path_size = 4096
+# endif
 #else
  do
   path <- getEnv "PATH"