From: sof <unknown>
Date: Wed, 25 Aug 2004 17:07:14 +0000 (+0000)
Subject: [project @ 2004-08-25 17:07:14 by sof]
X-Git-Tag: Initial_conversion_from_CVS_complete~1688
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b7c4ffdf03973b204e2199d52e5a5239466d9597;p=ghc-hetmet.git

[project @ 2004-08-25 17:07:14 by sof]
wibble
---

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)