1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{-# LANGUAGE OverloadedStrings #-}
import Control.Applicative
import Control.Monad
import Data.Monoid
import Data.String
import System.IO
import System.Exit
import System.Environment
import System.ZMQ4.Monadic
main :: IO ()
main = do
args <- getArgs
when (length args /= 2) $ do
hPutStrLn stderr "usage: prompt <address> <username>"
exitFailure
let addr = head args
name = fromString (args !! 1) <> ": "
runZMQ $ do
pub <- socket Pub
bind pub addr
forever $ do
line <- liftIO $ fromString <$> getLine
send pub [] (name <> line)
|
