diff options
Diffstat (limited to 'src/Network/KRPC.hs')
-rw-r--r-- | src/Network/KRPC.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Network/KRPC.hs b/src/Network/KRPC.hs index 8e158f48..2c3a1b48 100644 --- a/src/Network/KRPC.hs +++ b/src/Network/KRPC.hs | |||
@@ -208,7 +208,7 @@ call :: forall req resp host. | |||
208 | (MonadBaseControl IO host, MonadIO host, KRPC req resp) | 208 | (MonadBaseControl IO host, MonadIO host, KRPC req resp) |
209 | => SockAddr -> req -> host resp | 209 | => SockAddr -> req -> host resp |
210 | call addr arg = liftIO $ withRemote $ \sock -> do | 210 | call addr arg = liftIO $ withRemote $ \sock -> do |
211 | sendMessage (KQuery name (toBEncode arg)) addr sock | 211 | sendMessage (KQuery (toBEncode arg) name undefined) addr sock |
212 | getResult sock | 212 | getResult sock |
213 | where | 213 | where |
214 | Method name = method :: Method req resp | 214 | Method name = method :: Method req resp |
@@ -231,12 +231,12 @@ handler body = (name, newbody) | |||
231 | Method name = method :: Method req resp | 231 | Method name = method :: Method req resp |
232 | 232 | ||
233 | {-# INLINE newbody #-} | 233 | {-# INLINE newbody #-} |
234 | newbody addr q = | 234 | newbody addr KQuery {..} = |
235 | case fromBEncode (queryArgs q) of | 235 | case fromBEncode queryArgs of |
236 | Left e -> return (Left (ProtocolError (BC.pack e))) | 236 | Left e -> return (Left (ProtocolError (BC.pack e))) |
237 | Right a -> do | 237 | Right a -> do |
238 | r <- body addr a | 238 | r <- body addr a |
239 | return (Right (KResponse (toBEncode r))) | 239 | return (Right (KResponse (toBEncode r) queryId)) |
240 | 240 | ||
241 | sockAddrFamily :: SockAddr -> Family | 241 | sockAddrFamily :: SockAddr -> Family |
242 | sockAddrFamily (SockAddrInet _ _ ) = AF_INET | 242 | sockAddrFamily (SockAddrInet _ _ ) = AF_INET |