serv.hs

main = withSocketsDo $
    eventChan <- newChan
    tm <- newTimerIO
    forever $
      bracket (createNetwork tm chan)
              (threadKill) $ waitTimer tm >> resetTimer tm
  where
    createNet tm chan =  bracket (connect) (sClose) (network tm chan)
    connect = do
      addrinfos <- getAddrInfo Nothing (Just "") (Just "3000")
      let serveraddr = head addrinfos
      sock <- socket (addrFamily serveraddr) Stream defaultProtocol
      connect sock (addrAddress serveraddr)
      return tm socket
    network tm chan sock = forkIO $ forever $ do
      msg <- decode <$> recv sock 1024 -- XXX: really read message
      resetTimer tm
      writeChan chan msg
    go = forever $ readChan eventChan >>= processEvent