@@ -203,6 +203,10 @@ composeContext Context { currentm = m
203203 composefStack [] _ = error "Bug: this should never be reached"
204204 composefStack (f:ff) x = (unsafeCoerce f) x >>= composefStack ff
205205
206+------------------------------------------------------------------------------
207+-- Mailbox
208+------------------------------------------------------------------------------
209+
206210setContextMailBox :: Context -> a -> Context
207211setContextMailBox ctx mbdata = ctx { mailBox = Just $ unsafeCoerce mbdata }
208212