ghc/rts/hooks/OnExit.c

   1 /* -----------------------------------------------------------------------------
   2  * $Id: OnExit.c,v 1.2 1998/12/02 13:29:14 simonm Exp $
   3  *
   4  * User-overridable RTS hooks.
   5  *
   6  * ---------------------------------------------------------------------------*/
   7
   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 ()
  19 {
  20 }