From 8bbf10c35814430d1fd7835d71ff2ae3dbb2bad5 Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Mon, 1 May 2006 14:43:22 +0000 Subject: [PATCH] fixes for non-GHC --- System/Directory.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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" -- 1.7.10.4