projects
/
darcs-mirror-haskell-partty.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
51f9ba1
)
send function
author
Joachim Breitner
<mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:11:40 +0000
(23:11 +0000)
committer
Joachim Breitner
<mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:11:40 +0000
(23:11 +0000)
Partty.hs
patch
|
blob
|
history
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]
+