From 59b96e95e62bfc1453278a9b2eb925cc703bc1f0 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 23 Nov 1999 10:32:37 +0000
Subject: [PATCH] [project @ 1999-11-23 10:32:37 by sewardj] Fix typo in
 exitWith.

---
 ghc/lib/std/System.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ()
-- 
1.7.10.4