/examples/Haskell/hwserver.hs
Haskell | 22 lines | 14 code | 5 blank | 3 comment | 0 complexity | 97ce2d4029750357650d4322035af1b7 MD5 | raw file
Possible License(s): BSD-3-Clause
- {-# LANGUAGE OverloadedStrings #-}
- -- Hello World server
- module Main where
- import Control.Concurrent
- import Control.Monad
- import System.ZMQ4.Monadic
- main :: IO ()
- main = runZMQ $ do
- -- Socket to talk to clients
- responder <- socket Rep
- bind responder "tcp://*:5555"
- forever $ do
- buffer <- receive responder
- liftIO $ do
- putStrLn "Received Hello"
- threadDelay 1000000 -- Do some 'work'
- send responder [] "World"