X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRetainerSet.c;h=201412b95842585f72d73d9b1b6d370e13398497;hb=fd2bd22ed4483f949e989b827013fcda695c803a;hp=e1db6150207cb370b145d157ebf21cdb29c1099a;hpb=23e5985c3db852981d527d10d6a6271688049790;p=ghc-hetmet.git

diff --git a/rts/RetainerSet.c b/rts/RetainerSet.c
index e1db615..201412b 100644
--- a/rts/RetainerSet.c
+++ b/rts/RetainerSet.c
@@ -345,7 +345,7 @@ printRetainerSetShort(FILE *f, RetainerSet *rs)
 	    // size = strlen(tmp);
 	}
     }
-    fprintf(f, tmp);
+    fputs(tmp, f);
 }
 #elif defined(RETAINER_SCHEME_CC)
 // Retainer scheme 3: retainer = cost centre