1 files changed, 0 insertions, 40 deletions

diff --git a/src/Network/UPNP.hs b/src/Network/UPNP.hs
deleted file mode 100644
index 01d222bf..00000000
--- a/src/Network/UPNP.hs
+++ /dev/null
@@ -1,40 +0,0 @@
-module Network.UPNP where
-
-import Data.Maybe
-import Network.Address (sockAddrPort)
-import Network.Socket
-import System.Directory
-import System.Process  as Process
-import DPut
-import DebugTag
-
-protocols :: SocketType -> [String]
-protocols Stream   = ["tcp"]
-protocols Datagram = ["udp"]
-protocols _        = ["udp","tcp"]
-
-upnpc :: FilePath
-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.
-                -> [(SocketType, SockAddr)] -- ^ Protocol-port pairs to request.
-                -> IO (Maybe ProcessHandle)
-requestPorts description binds = do
-    let requests = do
-            (stype,saddr) <- binds
-            proto <- protocols stype
-            port <- maybeToList (sockAddrPort saddr)
-            [ show port, proto ]
-        bail = return Nothing
-    case requests of
-        [] -> bail
-        _  -> do
-            gotMiniUPNPC <- doesFileExist upnpc
-            if gotMiniUPNPC then do
-                phandle <- spawnProcess upnpc $ "-e": description : "-r" : requests
-                return $ Just phandle
-            else do
-                dput XMisc $ "Warning: unable to find miniupnpc client at "++upnpc++"."
-                bail