module NetworkTest where

import Network
import IO

main = do socket <- listenOn (PortNumber 556)
          putStrLn "Socket created."
          (handle, hostname, portnumber) <- accept socket
          hSetBuffering handle NoBuffering
          putStrLn "Connection received."
          hPutStrLn handle "Hello, world!"
          putStrLn "Message sent."
          hGetLine handle
          putStrLn "Line received."
          hClose handle
          putStrLn "Handle closed."
          sClose socket
          putStrLn "Socket closed."