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

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

diff --git a/ghc/lib/cbits/fileEOF.lc b/ghc/lib/cbits/fileEOF.lc
index 81128d4..cdd3eb2 100644 (file)
--- a/ghc/lib/cbits/fileEOF.lc
+++ b/ghc/lib/cbits/fileEOF.lc
@@ -10,7 +10,7 @@
 
 StgInt
 fileEOF(fp)
-StgAddr fp;
+StgForeignObj fp;
 {
     if (fileLookAhead(fp) != EOF)
        return 0;