diff options
| author | simonmar <unknown> | 1999-11-26 16:25:57 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-11-26 16:25:57 +0000 |
| commit | f689ae053903e329575df22990e97c8d5cc54717 (patch) | |
| tree | 7050065905a07820dfa15e8acb5da67c53756e37 /ghc/lib/std/cbits/writeFile.c | |
| parent | cbdbaacb1ea33fde3bbc61cd9615d6b1caccc421 (diff) | |
| download | haskell-f689ae053903e329575df22990e97c8d5cc54717.tar.gz | |
[project @ 1999-11-26 16:25:55 by simonmar]
Rename error.h to stgerror.h
Diffstat (limited to 'ghc/lib/std/cbits/writeFile.c')
| -rw-r--r-- | ghc/lib/std/cbits/writeFile.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/lib/std/cbits/writeFile.c b/ghc/lib/std/cbits/writeFile.c index f5ae542671..108ce99229 100644 --- a/ghc/lib/std/cbits/writeFile.c +++ b/ghc/lib/std/cbits/writeFile.c @@ -1,7 +1,7 @@ /* * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 * - * $Id: writeFile.c,v 1.10 1999/11/25 16:54:15 simonmar Exp $ + * $Id: writeFile.c,v 1.11 1999/11/26 16:25:57 simonmar Exp $ * * hPutStr Runtime Support */ @@ -116,6 +116,7 @@ writeBuf(StgForeignPtr ptr, StgAddr buf, StgInt len) ) { /* Flush buffer */ rc = writeFileObject(ptr, fo->bufWPtr); + /* ToDo: undo buffer fill if we're blocking.. */ if (rc != 0) { return rc; } |