From: Ross Paterson <ross@soi.city.ac.uk>
Date: Sun, 31 Aug 2008 18:02:27 +0000 (+0000)
Subject: non-GHC: leave out Belch functions
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c31f3665351fa3bdd2159d3c249bd26286b7f997;p=ghc-base.git

non-GHC: leave out Belch functions
---

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__ */