From: stolz <unknown>
Date: Tue, 20 May 2003 11:07:54 +0000 (+0000)
Subject: [project @ 2003-05-20 11:07:54 by stolz]
X-Git-Tag: Approx_11550_changesets_converted~889
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=9cc52d7cf298279f2d140f3781d035c724579443;p=ghc-hetmet.git

[project @ 2003-05-20 11:07:54 by stolz]
Generate
  int main (int argc, char *argv [])
instead of
  int main (void)

Suggested by: Nicolas Oury
---

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index be5029b..4456ae7 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.46 2003/02/21 13:35:18 simonpj Exp $
+-- $Id: Main.hs,v 1.47 2003/05/20 11:07:54 stolz 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.
@@ -524,7 +524,7 @@ output flags name toks = do
     writeFile cProgName $
         concatMap outFlagHeaderCProg flags++
         concatMap outHeaderCProg specials++
-        "\nint main (void)\n{\n"++
+        "\nint main (int argc, char *argv [])\n{\n"++
         outHeaderHs flags (if needsH then Just outHName else Nothing) specials++
         outHsLine (SourcePos name 0)++
         concatMap outTokenHs toks++