Merge branch 'master' of darcs.haskell.org:/srv/darcs//ghc
[ghc.git] / rts / hooks / OnExit.c
1 /* -----------------------------------------------------------------------------
2 *
3 * User-overridable RTS hooks.
4 *
5 * ---------------------------------------------------------------------------*/
6
7 #include "PosixSource.h"
8 #include "Rts.h"
9
10 /* Note: by the time this hook has been called, Haskell land
11 * will have been shut down completely.
12 *
13 * ToDo: feed the hook info on whether we're shutting down as a result
14 * of termination or run-time error ?
15 */
16
17 void
18 OnExitHook (void)
19 {
20 }