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