Dummy Code to ideal sample for "quic" package

client.hs

module Main where

import           Network.QUIC

-- Dummy Code  : Simple QUIC Client to Echo Server

main = do
    manager <- newManager defaultManagerSettings
    ctx <- handshake manager "loclahost" 8080
    send ctx "1st hello"
    send ctx "2nd hello"
    r1 <- recv ctx
    r2 <- recv ctx
    print r1
    print r2

server.hs

module Main where

import           Control.Monad (forever)
import           Network.QUIC

main :: IO ()
main = do
    manager <- newManager defaultSettings
    echo manager

echo :: Manager ->  IO ()
echo mgr = forever $ do
          ctx <- accept mgr
          bs <- recv ctx
          print bs