~haskell-guy/ssb-haskell

d32f3c704c7ef33c2c3ed392fbdfbf98f6a3aba6 — Haskell Guy 4 months ago dd39bdc
Fix compile time error
1 files changed, 1 insertions(+), 1 deletions(-)

M src/Ssb/Peer/RPC/Room.hs
M src/Ssb/Peer/RPC/Room.hs => src/Ssb/Peer/RPC/Room.hs +1 -1
@@ 316,7 316,7 @@ instance RPC.Handler Room where
    RPC.writeStreamJSON stream resp

  -- 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 = return . return $ ()
  --serve room endpoint@otherwise arg stream = (RPC.notFoundHandlerFunc endpoint) arg stream

  notifyConnect _ _ = return . return $ ()