diff options
| author | Haskell Guy <haskell-guy@localhost> | 2020-05-28 15:24:47 +0200 |
|---|---|---|
| committer | Haskell Guy <haskell-guy@localhost> | 2020-05-28 15:24:47 +0200 |
| commit | d32f3c704c7ef33c2c3ed392fbdfbf98f6a3aba6 (patch) | |
| tree | dbe285f29ccd0d476edf371555d4e6ad5d603404 | |
| parent | dd39bdc8c23734f35fbf3bc3250ee3ff03724772 (diff) | |
| download | ssb-haskell-d32f3c704c7ef33c2c3ed392fbdfbf98f6a3aba6.tar.xz | |
Fix compile time error
| -rw-r--r-- | src/Ssb/Peer/RPC/Room.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Ssb/Peer/RPC/Room.hs b/src/Ssb/Peer/RPC/Room.hs index 62dd6dc..1f53cf0 100644 --- a/src/Ssb/Peer/RPC/Room.hs +++ b/src/Ssb/Peer/RPC/Room.hs @@ -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 $ () |