Message queue broker in Haskell

-- Simple message queuing broker
-- Same as request-reply broker but using shared queue proxy

module Main where

import System.ZMQ4.Monadic

main :: IO ()
main = runZMQ $ do
-- Socket facing clients
frontend <- socket Router
bind frontend "tcp://*:5559"

backend <- socket Dealer
bind backend "tcp://*:5560"

-- Start the proxy
proxy frontend backend Nothing