Permalink
Browse files

Address a deprecation warning from the network package.

  • Loading branch information...
1 parent ad1d41f commit 932edd6621a33eb3b29b21ce5e51fdd655c9efa7 @acowley committed Nov 18, 2016
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Ros/Node/RosTcp.hs
View
@@ -217,7 +217,7 @@ callServiceWithMaster rosMaster serviceName message = runExceptT $ do
(host, port) <- ExceptT . return $ parseHostAndPort serviceUrl
-- make a socket
let makeSocket = socket AF_INET Sock.Stream defaultProtocol
- closeSocket sock = liftIO $ sClose sock
+ closeSocket sock = liftIO $ close sock
withSocket sock = do
ioErrorToExceptT ConnectExcept "Problem connecting to server. Got exception : " $ do
--Connect to the socket

0 comments on commit 932edd6

Please sign in to comment.