From: Simon Marlow <marlowsd@gmail.com>
Date: Sun, 22 Mar 2009 19:54:41 +0000 (+0000)
Subject: fix an fprintf that should be fputs (quiets gcc)
X-Git-Tag: 2009-06-25~446
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d971d1e8e3557144eaa9dac6cf438f07178a9f9d;p=ghc-hetmet.git

fix an fprintf that should be fputs (quiets gcc)
---

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