From 2565ba3105a184bc65f36805ed4874b70b515e48 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 21 Feb 2003 13:35:18 +0000
Subject: [PATCH] [project @ 2003-02-21 13:35:18 by simonpj] Use old-style
 foreign import for bkwd compatibility

---
 ghc/utils/hsc2hs/Main.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index 4afabd2..be5029b 100644
--- a/ghc/utils/hsc2hs/Main.hs
+++ b/ghc/utils/hsc2hs/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fglasgow-exts #-}
 
 ------------------------------------------------------------------------
--- $Id: Main.hs,v 1.45 2003/02/11 04:32:06 sof Exp $
+-- $Id: Main.hs,v 1.46 2003/02/21 13:35:18 simonpj Exp $
 --
 -- Program for converting .hsc files to .hs files, by converting the
 -- file into a C program which is run to generate the Haskell source.
@@ -811,7 +811,7 @@ getExecDir cmd
   where
     len = 2048::Int -- Plenty, PATH_MAX is 512 under Win32.
 
-foreign import stdcall unsafe "GetModuleFileNameA"
+foreign import stdcall "GetModuleFileNameA" unsafe
   getModuleFileName :: Ptr () -> CString -> Int -> IO Int32
 
 #else
-- 
1.7.10.4