From: ross <unknown>
Date: Mon, 9 Feb 2004 17:23:20 +0000 (+0000)
Subject: [project @ 2004-02-09 17:23:20 by ross]
X-Git-Tag: Approx_11550_changesets_converted~96
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=363a16df15206022a4cbc9e679bee665047a805c

[project @ 2004-02-09 17:23:20 by ross]
only uses FFI, not glasgow-exts.  also updated ffi syntax
---

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index 9c5e9eb..bf77f9d 100644
--- a/ghc/utils/hsc2hs/Main.hs
+++ b/ghc/utils/hsc2hs/Main.hs
@@ -1,7 +1,7 @@
-{-# OPTIONS -fglasgow-exts #-}
+{-# OPTIONS -fffi #-}
 
 ------------------------------------------------------------------------
--- $Id: Main.hs,v 1.51 2004/02/09 15:04:19 malcolm Exp $
+-- $Id: Main.hs,v 1.52 2004/02/09 17:23:20 ross 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.
@@ -829,7 +829,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