Ticket #2109: Client.hs

File Client.hs, 215 bytes (added by Mads, 6 years ago)
Line 
1module Client where
2
3import Network
4import Control.Concurrent
5
6import ServerPort
7
8main = withSocketsDo $
9       do hdl <- connectTo "localhost" serverPort
10          threadDelay (10^11) -- sleep for a very long time