equal
deleted
inserted
replaced
85 forkIO $ acceptLoop serverSocket acceptChan |
85 forkIO $ acceptLoop serverSocket acceptChan |
86 mainLoop serverSocket acceptChan [] [] |
86 mainLoop serverSocket acceptChan [] [] |
87 |
87 |
88 |
88 |
89 main = withSocketsDo $ do |
89 main = withSocketsDo $ do |
90 flags <- opts |
90 putStrLn $ "Listening on port " ++ show (listenPort globalOptions) |
91 putStrLn $ "Listening on port " ++ show (getPort flags) |
91 serverSocket <- listenOn $ PortNumber (listenPort globalOptions) |
92 serverSocket <- listenOn $ PortNumber (getPort flags) |
|
93 startServer serverSocket `finally` sClose serverSocket |
92 startServer serverSocket `finally` sClose serverSocket |