From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 13 Jun 2007 09:51:44 +0000 (+0000)
Subject: warning police
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=edb58a77c7d4aa4c17e3114fe7ac733df5e745ab

warning police
---

diff --git a/rts/Printer.c b/rts/Printer.c
index 28cdd0d..7364edd 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 */