fix an fprintf that should be fputs (quiets gcc)

[ghc-hetmet.git] / rts / RetainerSet.c

diff --git a/rts/RetainerSet.c b/rts/RetainerSet.c
index e1db615..201412b 100644 (file)
--- 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