Pushpankar Kumar Pushp pushpankar

🎧

Focusing

Engineer

joehillen / server.hs

Last active June 1, 2022 17:56

A re-implementation of Simon Marlow's Async Haskell Chat Server using Conduits

	{-# LANGUAGE OverloadedStrings, RecordWildCards, LambdaCase #-}

	import Conduit
	import Data.Conduit
	import Data.Conduit.Network
	import qualified Data.ByteString.Char8 as BS
	import Data.Conduit.TMChan
	import Text.Printf (printf)
	import Control.Concurrent.STM
	import qualified Data.Map as Map