[project @ 1998-06-29 17:49:05 by sof]

[ghc-hetmet.git] / ghc / runtime / hooks / ExitHook.lc

diff --git a/ghc/runtime/hooks/ExitHook.lc b/ghc/runtime/hooks/ExitHook.lc
new file mode 100644 (file)
index 0000000..0e89bc6
--- /dev/null
+++ b/ghc/runtime/hooks/ExitHook.lc
@@ -0,0 +1,16 @@
+
+Note: by the time this hook has been called, Haskell land
+will have been shut down completely.
+
+ToDo: feed the hook info on whether we're shutting down as a result
+of termination or run-time error ?
+
+\begin{code}
+#include "rtsdefs.h"
+
+void
+OnExitHook ()
+{
+ return;
+}
+\end{code}