From c31f3665351fa3bdd2159d3c249bd26286b7f997 Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Sun, 31 Aug 2008 18:02:27 +0000 Subject: [PATCH] non-GHC: leave out Belch functions --- cbits/PrelIOUtils.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/cbits/PrelIOUtils.c b/cbits/PrelIOUtils.c index cf74a8e..c1999af 100644 --- a/cbits/PrelIOUtils.c +++ b/cbits/PrelIOUtils.c @@ -6,8 +6,9 @@ #define INLINE #include "HsBase.h" -#include "Stg.h" -#include "RtsMessages.h" +#ifdef __GLASGOW_HASKELL__ +# include "Stg.h" +# include "RtsMessages.h" void errorBelch2(const char*s, char *t) { @@ -18,3 +19,4 @@ void debugBelch2(const char*s, char *t) { debugBelch(s,t); } +#endif /* __GLASGOW_HASKELL__ */ -- 1.7.10.4