From b7c4ffdf03973b204e2199d52e5a5239466d9597 Mon Sep 17 00:00:00 2001 From: sof Date: Wed, 25 Aug 2004 17:07:14 +0000 Subject: [PATCH] [project @ 2004-08-25 17:07:14 by sof] wibble --- ghc/utils/ghc-pkg/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/utils/ghc-pkg/Main.hs b/ghc/utils/ghc-pkg/Main.hs index 954d1f6..7eb4f3a 100644 --- a/ghc/utils/ghc-pkg/Main.hs +++ b/ghc/utils/ghc-pkg/Main.hs @@ -528,7 +528,7 @@ getExecDir cmd where len = 2048::Int -- Plenty, PATH_MAX is 512 under Win32. -foreign import stdcall "GetModuleFileNameA" unsafe +foreign import stdcall unsafe "GetModuleFileNameA" getModuleFileName :: Ptr () -> CString -> Int -> IO Int32 #else getExecDir :: String -> IO (Maybe String) -- 1.7.10.4