From d32f3c704c7ef33c2c3ed392fbdfbf98f6a3aba6 Mon Sep 17 00:00:00 2001
From: Haskell Guy <haskell-guy@localhost>
Date: Thu, 28 May 2020 15:24:47 +0200
Subject: Fix compile time error

---
 src/Ssb/Peer/RPC/Room.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Ssb')

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 $ ()
-- 
cgit v1.2.3