+ Multi param procedures.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Remote/KRPC/Protocol.hs b/src/Remote/KRPC/Protocol.hs
index 625aba25..98674c51 100644
--- a/src/Remote/KRPC/Protocol.hs
+++ b/src/Remote/KRPC/Protocol.hs
@@ -74,7 +74,7 @@ class KMessage message scheme | message -> scheme where
   validate = (==) . scheme
   {-# INLINE validate #-}
 
-
+-- TODO Text -> ByteString
 -- TODO document that it is and how transferred
 data KError
     -- | Some error doesn't fit in any other category.
@@ -213,9 +213,13 @@ type KRemote = Socket
 withRemote :: (MonadBaseControl IO m, MonadIO m) => (KRemote -> m a) -> m a
 withRemote = bracket (liftIO (socket AF_INET Datagram defaultProtocol))
                      (liftIO .  sClose)
+{-# SPECIALIZE withRemote :: (KRemote -> IO a) -> IO a #-}
+
 
 maxMsgSize :: Int
 maxMsgSize = 16 * 1024
+{-# INLINE maxMsgSize #-}
+
 
 -- TODO eliminate toStrict
 sendMessage :: BEncodable msg => msg -> KRemoteAddr -> KRemote -> IO ()