M app/Main.hs => app/Main.hs +1 -1
@@ 109,7 109,7 @@ hostRoomCMD name desc hostname = do
Room.Invite { host = hostname, port = "8008", key = publicKey me }
putStrLn $ "Hosting room for '" <> Room.formatInvite roomInvite <> "'"
- router <- defaultHandler
+ router <- Room.newRoom name desc
TCP.serveRPC router hostname (Room.port roomInvite) mainNet me
parser :: Options.Parser Command
M src/Ssb/Peer/RPC/Room.hs => src/Ssb/Peer/RPC/Room.hs +3 -1
@@ 315,7 315,9 @@ instance RPC.Handler Room where
resp <- getCurrentTime
RPC.writeStreamJSON stream resp
- serve room endpoint@otherwise arg stream = (RPC.notFoundHandlerFunc endpoint) arg stream
+ -- HACK: return OK when endpoint not known to avoid disconnecting clients
+ serve room endpoint@otherwise arg stream = return . return ()
+ --serve room endpoint@otherwise arg stream = (RPC.notFoundHandlerFunc endpoint) arg stream
notifyConnect _ _ = return . return $ ()