diff options
| -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); } |