Ticket #2109: Client.hs

module Client where

import Network
import Control.Concurrent

import ServerPort

main = withSocketsDo $
       do hdl <- connectTo "localhost" serverPort
          threadDelay (10^11) -- sleep for a very long time