From: sewardj <unknown>
Date: Mon, 22 Nov 1999 11:46:25 +0000 (+0000)
Subject: [project @ 1999-11-22 11:46:25 by sewardj]
X-Git-Tag: Approximately_9120_patches~5530
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=83f8a91c81249da819dd9f998e0396ba74771217;p=ghc-hetmet.git

[project @ 1999-11-22 11:46:25 by sewardj]
Add comment about Hugs (non-)compliance.
---

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index a5d6a51..d3ad1af 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)