Skip to content

Instantly share code, notes, and snippets.

View kazu-yamamoto's full-sized avatar
💭
QUIC and TLS 1.3

Kazu Yamamoto kazu-yamamoto

💭
QUIC and TLS 1.3
View GitHub Profile
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE CPP, ForeignFunctionInterface #-}
-- ghc --make -O2 -funbox-strict-fields -threaded -rtsopts SimpleServer.hs
import Network.Socket
import System.Environment (getArgs)
import Control.Concurrent
import Control.Monad
import Foreign