diff options
| author | simonmar <unknown> | 1999-06-28 08:27:25 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-06-28 08:27:25 +0000 |
| commit | 8ff6657f140ad70ae232cfc443a39befc107fb9f (patch) | |
| tree | e3039aa935ac7bd952c01d95ca482623c7aa7556 | |
| parent | dc1dbaa2ce7c8bd926f1c8a0cd69e6bc3847bfe2 (diff) | |
| download | haskell-8ff6657f140ad70ae232cfc443a39befc107fb9f.tar.gz | |
[project @ 1999-06-28 08:27:25 by simonmar]
Don't attempt to close stdin or stdout. From Kevin Atkinson
<kevinatk@home.com>.
| -rw-r--r-- | ghc/utils/unlit/unlit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/utils/unlit/unlit.c b/ghc/utils/unlit/unlit.c index b15e56829b..27688c71d9 100644 --- a/ghc/utils/unlit/unlit.c +++ b/ghc/utils/unlit/unlit.c @@ -338,8 +338,8 @@ char **argv; { unlit(file, istream, ostream); - fclose(istream); - fclose(ostream); + if (istream != stdin) fclose(istream); + if (ostream != stdout) fclose(ostream); exit(errors==0 ? 0 : 1); } |