practice: Redis Pub/Sub

Pub.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Database.Redis
import Control.Monad.IO.Class (liftIO)

main :: IO ()
main = do
    conn <- connect defaultConnectInfo { connectHost = "xxx.xxx.xxx.xxx" }
    runRedis conn $ do
      res <- publish "test" "hogehoge"
      liftIO . putStrLn $ show res

Sub.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Database.Redis
import Data.Monoid (mempty)
import qualified Data.ByteString.Char8 as BS

main :: IO ()
main = do
    conn <- connect defaultConnectInfo { connectHost = "xxx.xxx.xxx.xxx" }
    runRedis conn $ pubSub (subscribe ["test"]) $ \msg -> do
        BS.putStrLn $ msgMessage msg
        return mempty