[project @ 1997-03-14 05:17:06 by sof]

[ghc-hetmet.git] / ghc / lib / cbits / filePutc.lc

diff --git a/ghc/lib/cbits/filePutc.lc b/ghc/lib/cbits/filePutc.lc
index bca57ba..4e6b85b 100644 (file)
--- a/ghc/lib/cbits/filePutc.lc
+++ b/ghc/lib/cbits/filePutc.lc
@@ -11,7 +11,7 @@
 
 StgInt
 filePutc(fp, c)
-StgAddr fp;
+StgForeignObj fp;
 StgInt c;
 {
     int rc;