Ticket #2109: Server.hs

module Server where

import Network
import System.IO

import ServerPort

main = withSocketsDo $
       do socket      <- listenOn serverPort
          putStrLn "Listening for connection"
          (hdl, _, _) <- accept socket
          putStrLn "Accepted connection"
          hIsEOF hdl
          putStrLn "Never reaches this point"