2 files changed, 4 insertions(+), 2 deletions(-)

M app/Main.hs
M src/Ssb/Peer/RPC/Room.hs

@@ 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

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