From 83f8a91c81249da819dd9f998e0396ba74771217 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 22 Nov 1999 11:46:25 +0000
Subject: [PATCH] [project @ 1999-11-22 11:46:25 by sewardj] Add comment about
 Hugs (non-)compliance.

---
 ghc/lib/std/System.lhs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index a5d6a512186c..d3ad1af0145b 100644
--- a/ghc/lib/std/System.lhs
+++ b/ghc/lib/std/System.lhs
@@ -214,6 +214,9 @@ fromExitCode                :: ExitCode -> Int
 fromExitCode ExitSuccess     = 0
 fromExitCode (ExitFailure n) = n
 
+-- Note. exitWith is supposed to flush and close all open or 
+-- semi-open handles.  The code below doesn't do that -- 
+-- we'd have to keep a list of them somewhere.
 exitWith :: ExitCode -> IO a
 exitWith c
    = do nh_exitwith (fromExitCode c)
-- 
GitLab