send function
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:11:40 +0000 (23:11 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:11:40 +0000 (23:11 +0000)
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]
+