From b74c1ccfae2bea6d80a7d1e658565ec87b221313 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 3 Apr 2000 16:26:01 +0000 Subject: [PATCH] [project @ 2000-04-03 16:26:01 by simonmar] eliminate warning --- ghc/rts/Main.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/rts/Main.c b/ghc/rts/Main.c index 04e9b2b..a90556e 100644 --- a/ghc/rts/Main.c +++ b/ghc/rts/Main.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Main.c,v 1.21 2000/04/03 13:44:47 simonmar Exp $ + * $Id: Main.c,v 1.22 2000/04/03 16:26:01 simonmar Exp $ * * (c) The GHC Team 1998-2000 * @@ -100,7 +100,7 @@ int main(int argc, char *argv[]) # else /* !PAR && !GRAN */ /* ToDo: want to start with a larger stack size */ - status = rts_evalIO(mainIO_closure, NULL); + status = rts_evalIO((HaskellObj)mainIO_closure, NULL); # endif /* !PAR && !GRAN */ -- 1.7.10.4