runProxy :: (L.Logger l) => Int -> l -> IO ()
runProxy port logger = do
                        man <- Client.newManager (ClientSSL.opensslManagerSettings SSL.context) --Client.defaultManagerSettings
                        hostname <- NBSD.getHostName
                        logChan <- newChan
                        startLogger logger logChan
                        Prelude.putStrLn $ "paranoia started on http://0.0.0.0:" ++ (show port) ++ "/"
                        run port (app man logChan hostname port)
runProxy :: (L.Logger l) => Int -> l -> IO ()
runProxy port logger = do
                        man <- Client.newManager (ClientSSL.opensslManagerSettings SSL.context) --Client.defaultManagerSettings
                        hostname <- NBSD.getHostName
                        logChan <- newChan
                        startLogger logger logChan
                        Prelude.putStrLn $ "paranoia started on http://0.0.0.0:" ++ (show port) ++ "/"
                        run port (app man logChan hostname port)
runProxy port logger = do
                        man <- Client.newManager (ClientSSL.opensslManagerSettings SSL.context) --Client.defaultManagerSettings
                        hostname <- NBSD.getHostName
                        logChan <- newChan
                        startLogger logger logChan
                        Prelude.putStrLn $ "paranoia started on http://0.0.0.0:" ++ (show port) ++ "/"
                        run port (app man logChan hostname port)