Echo Client

Client.hs

{-# LANGUAGE OverloadedStrings #-}
module Client where

import Network.Socket hiding (recv)
import Network.Socket.ByteString

run :: IO ()
run = do
  addrInfo <- getAddrInfo Nothing (Just "localhost") (Just "3000")
  let addr = head addrInfo
  sock <- socket (addrFamily addr) Stream defaultProtocol
  connect sock (addrAddress addr)
  sendAll sock "Hi!"
  msg <- recv sock 1024
  sClose sock
  print msg


main :: IO ()
main = withSocketsDo run