From a0e8e5a91d15ed8c79f4a1b5914d3a6242c0cbd3 Mon Sep 17 00:00:00 2001 From: Andrew Guschin Date: Sun, 5 Mar 2023 13:45:37 +0400 Subject: Migrated project to cabal --- net/Client.hs | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 net/Client.hs (limited to 'net/Client.hs') diff --git a/net/Client.hs b/net/Client.hs deleted file mode 100644 index 863df6e..0000000 --- a/net/Client.hs +++ /dev/null @@ -1,30 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} --- Echo client program -module Main (main) where - -import qualified Control.Exception as E -import qualified Data.ByteString.Char8 as C -import Network.Socket -import Network.Socket.ByteString (recv, sendAll) - -main :: IO () -main = runTCPClient "127.0.0.1" "3000" $ \s -> do - sendAll s "Hello, world!" - msg <- recv s 1024 - putStr "Received: " - C.putStrLn msg - --- from the "network-run" package. -runTCPClient :: HostName -> ServiceName -> (Socket -> IO a) -> IO a -runTCPClient host port client = withSocketsDo $ do - addr <- resolve - E.bracket (open addr) close client - where - resolve = do - let hints = defaultHints { addrSocketType = Stream } - head <$> getAddrInfo (Just hints) (Just host) (Just port) - open addr = do - sock <- socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr) - connect sock $ addrAddress addr - return sock - -- cgit v1.2.3