Added -e description to upnpc commandline.

1 files changed, 2 insertions, 2 deletions

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++"."