Address a deprecation warning from the network package.

acowley · Nov 18, 2016 · 932edd6 · 932edd6
1 parent ad1d41f
commit 932edd6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Ros/Node/RosTcp.hs b/src/Ros/Node/RosTcp.hs
@@ -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