rename LogMessage to AnyMessage

Not related to the Log anymore.

1 files changed, 3 insertions, 3 deletions

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 ()