diff options
Diffstat (limited to 'Server.hs')
| -rw-r--r-- | Server.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -154,7 +154,7 @@ user o ssv conn = withSessionID (serverDirectory o) $ \(loghv, sid) -> do case v of Just (Broadcast l _from) -> case loggedMessage l of Developer m -> do - sendBinaryData conn (LogMessage (Developer m)) + sendBinaryData conn (AnyMessage (Developer m)) relaytouser userchan User _ -> relaytouser userchan Nothing -> return () @@ -196,7 +196,7 @@ developer o ssv sid conn = bracket setup cleanup go case v of Just (Broadcast l from) -> do let sendit = sendBinaryData conn - (LogMessage $ loggedMessage l) + (AnyMessage $ loggedMessage l) case loggedMessage l of User _ -> sendit -- Relay messages from other @@ -232,5 +232,5 @@ replayBacklog :: ServerOpts -> SessionID -> WS.Connection -> IO () replayBacklog o sid conn = do ls <- streamLog (sessionLogFile (serverDirectory o) sid) forM_ ls $ \l -> case loggedMessage <$> l of - Right m -> sendBinaryData conn (LogMessage m) + Right m -> sendBinaryData conn (AnyMessage m) Left _ -> return () |