+-----------------------------------------------------------------------------
+--
+-- Monadery code used in InteractiveUI
+--
+-- (c) The GHC Team 2005-2006
+--
+-----------------------------------------------------------------------------
+
module GhciMonad where
#include "HsVersions.h"
data InfSessionException =
StopChildSession -- A child session requests to be stopped
+ | StopParentSession -- A child session requests to be stopped
+ -- AND that the parent session quits after that
| ChildSessionStopped String -- A child session has stopped
deriving Typeable