From edb58a77c7d4aa4c17e3114fe7ac733df5e745ab Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 13 Jun 2007 09:51:44 +0000
Subject: warning police

---
 rts/Printer.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'rts/Printer.c')

diff --git a/rts/Printer.c b/rts/Printer.c
index 28cdd0d4ab..7364edd37f 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -1157,7 +1157,7 @@ void prettyPrintClosure_ (StgClosure *obj)
         case CONSTR_STATIC:
         case CONSTR_NOCAF_STATIC: 
         {
-           int i; 
+           nat i; 
            char *descriptor;
 
            /* find the con_info for the constructor */
-- 
cgit v1.2.1