Ticket #2109: Server.hs

File Server.hs, 335 bytes (added by Mads, 7 years ago)
Line 
1module Server where
2
3import Network
4import System.IO
5
6import ServerPort
7
8main = withSocketsDo $
9       do socket      <- listenOn serverPort
10          putStrLn "Listening for connection"
11          (hdl, _, _) <- accept socket
12          putStrLn "Accepted connection"
13          hIsEOF hdl
14          putStrLn "Never reaches this point"
15