From 57aa0df02d52e7018d85a2b38689d3bc127252f3 Mon Sep 17 00:00:00 2001 From: joe Date: Sat, 16 Sep 2017 21:55:00 -0400 Subject: Added -e description to upnpc commandline. --- src/Network/UPNP.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Network/UPNP.hs') diff --git a/src/Network/UPNP.hs b/src/Network/UPNP.hs index fff1ba5b..ed6b4777 100644 --- a/src/Network/UPNP.hs +++ b/src/Network/UPNP.hs @@ -17,7 +17,7 @@ upnpc = "/usr/bin/upnpc" -- | Invokes the miniupnpc command line program to request ports from a UPNP -- wifi router. Returns the process handle on success. -requestPorts :: String -- ^ Description stored on router, currently ignored. +requestPorts :: String -- ^ Description stored on router. -> [(SocketType, SockAddr)] -- ^ Protocol-port pairs to request. -> IO (Maybe ProcessHandle) requestPorts description binds = do @@ -32,7 +32,7 @@ requestPorts description binds = do _ -> do gotMiniUPNPC <- doesFileExist upnpc if gotMiniUPNPC then do - phandle <- spawnProcess upnpc $ "-r" : requests + phandle <- spawnProcess upnpc $ "-e": description : "-r" : requests return $ Just phandle else do hPutStrLn stderr $ "Warning: unable to find miniupnpc client at "++upnpc++"." -- cgit v1.2.3