From: sewardj <unknown>
Date: Tue, 23 Nov 1999 10:32:37 +0000 (+0000)
Subject: [project @ 1999-11-23 10:32:37 by sewardj]
X-Git-Tag: Approximately_9120_patches~5516
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=59b96e95e62bfc1453278a9b2eb925cc703bc1f0;p=ghc-hetmet.git

[project @ 1999-11-23 10:32:37 by sewardj]
Fix typo in exitWith.
---

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index ba31873..e62b7d4 100644
--- a/ghc/lib/std/System.lhs
+++ b/ghc/lib/std/System.lhs
@@ -217,7 +217,7 @@ fromExitCode (ExitFailure n) = n
 -- see comment in Prelude.hs near primRunIO_hugs_toplevel
 exitWith :: ExitCode -> IO a
 exitWith c
-   = do cleanup_action <- readIORef prelExitWithAction
+   = do cleanup_action <- readIORef prelCleanupAfterRunAction
         case cleanup_action of
            Just xx -> xx
            Nothing -> return ()