X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTrace.c;h=70f4a397422dfd108869fcac2ac171700184550e;hb=cd47700887365ca2a6af17d03e731efce65cf2ac;hp=58f77edd4de91e6f4f52bd4170301132cd647135;hpb=aa538c1db99be4efb2724bb8c4a378b9d68a28ec;p=ghc-hetmet.git

diff --git a/rts/Trace.c b/rts/Trace.c
index 58f77ed..70f4a39 100644
--- a/rts/Trace.c
+++ b/rts/Trace.c
@@ -267,7 +267,7 @@ void traceCapsetModify_ (EventTypeNum tag,
         tracePreface();
         switch (tag) {
         case EVENT_CAPSET_CREATE:   // (capset, capset_type)
-            debugBelch("created capset %lu of type %d\n", (lnat)capset, other);
+            debugBelch("created capset %lu of type %d\n", (lnat)capset, (int)other);
             break;
         case EVENT_CAPSET_DELETE:   // (capset)
             debugBelch("deleted capset %lu\n", (lnat)capset);