1 /* -----------------------------------------------------------------------------
2 * $Id: OnExit.c,v 1.2 1998/12/02 13:29:14 simonm Exp $
4 * User-overridable RTS hooks.
6 * ---------------------------------------------------------------------------*/
10 /* Note: by the time this hook has been called, Haskell land
11 * will have been shut down completely.
13 * ToDo: feed the hook info on whether we're shutting down as a result
14 * of termination or run-time error ?