diff options
Diffstat (limited to 'src/Ssb/Peer/RPC')
| -rw-r--r-- | src/Ssb/Peer/RPC/Room.hs | 3 | ||||
| -rw-r--r-- | src/Ssb/Peer/RPC/WhoAmI.hs | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/Ssb/Peer/RPC/Room.hs b/src/Ssb/Peer/RPC/Room.hs index 1f53cf0..7be7d2c 100644 --- a/src/Ssb/Peer/RPC/Room.hs +++ b/src/Ssb/Peer/RPC/Room.hs @@ -280,7 +280,8 @@ instance RPC.Handler Room where -- should decode request serve h (RPC.Endpoint ["tunnel", "connect"] RPC.Duplex) args stream = do let args' = - decodeJSON (toS $ Aeson.encode args) :: Either + -- TODO: why encode to JSON then decode from JSON redundantly? + decodeJSON (encodeJSON args) :: Either Text [ConnectRequest] case args' of diff --git a/src/Ssb/Peer/RPC/WhoAmI.hs b/src/Ssb/Peer/RPC/WhoAmI.hs index be979fc..c92c56c 100644 --- a/src/Ssb/Peer/RPC/WhoAmI.hs +++ b/src/Ssb/Peer/RPC/WhoAmI.hs @@ -7,7 +7,7 @@ module Ssb.Peer.RPC.WhoAmI where -import Protolude hiding ( Identity ) +import Protolude hiding ( Handler, Identity ) import Data.Aeson as Aeson (FromJSON,ToJSON) import qualified Ssb.Identity as Ssb |