From 937b55549b4ba72b0392d7e139e592a40eec2101 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 27 Apr 2017 09:39:55 -0400 Subject: rename LogMessage to AnyMessage Not related to the Log anymore. --- Server.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Server.hs') diff --git a/Server.hs b/Server.hs index 0906937..62d0a3c 100644 --- a/Server.hs +++ b/Server.hs @@ -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 () -- cgit v1.2.3