Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {-# 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement