hex/wstunnel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Test

Browse source
This commit is contained in:
Erèbe 2016-05-31 18:35:04 +02:00
parent 8d33cf9698
commit 750aeedd6b
2 changed files with 18 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
app/Main.hs
View file

@ -11,6 +11,7 @@ import qualified Data.ByteString.Char8 as BC
import Data.Maybe (fromMaybe)
import System.Console.CmdArgs
import System.Environment (getArgs, withArgs)
import qualified System.Log.Logger as LOG
data WsTunnel = WsTunnel
{ localToRemote :: String
@ -105,6 +106,8 @@ main = do
cfg <- if null args then withArgs ["--help"] (cmdArgs cmdLine) else cmdArgs cmdLine
let serverInfo = parseServerInfo (WsServerInfo False "" 0) (wsTunnelServer cfg)
LOG.updateGlobalLogger "wstunnel" (LOG.setLevel LOG.INFO)
if serverMode cfg
then putStrLn ("Starting server with opts " ++ show serverInfo )