diff --git a/src/Messaging.hs b/src/Messaging.hs index fecbb9a..e966dea 100644 --- a/src/Messaging.hs +++ b/src/Messaging.hs @@ -57,10 +57,9 @@ broadcast obj = do relay :: FromClient -> (Message.T -> App.T ()) -> App.T () relay message f = do App.debug "Relaying" - maybe bounce doRelay . Session.player =<< App.session + maybe (return ()) doRelay . Session.player =<< App.session where doRelay player = f $ Relay {from = playerID player, message} - bounce = send (Error "Unidentified client can't relay messages") receive :: App.T FromClient receive = do