send function

diff --git a/Partty.hs b/Partty.hs
index 9c424cc..c2552cd 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -226,5 +226,9 @@ whoIsHere = asks psPlayers
 gameDay :: (MonadReader ParttyState m) => m Day
 gameDay = asks psDay
 
--- Interaction: use “tell”
+-- Interaction:
+
+send :: (MonadWriter [ClientMessage] m) => ClientMessage -> m ()
+send msg = tell [msg]
+