guniorobot / web-mongrel2 Goto Github PK

module Main where

import Web.Mongrel2

import Control.Monad (forever)
import Text.Groom (groom)
import Data.Default (def)

main :: IO ()
main = do
  let b = def { m2_publish = "tcp://127.0.0.1:9994"
              , m2_pull = "tcp://127.0.0.1:9995" }
  bx <- connect b
  case m2_pull_socket bx of
    Nothing -> error "Pull socket didn't connect.  Is Mongrel2 running?"
    Just sock ->
      forever $ poll sock >>=
                  recv fx bx >>
                  return ()
 where
  fx :: Request -> IO Response
  fx a = return $ (defaultr a) { response_body = "OH HAI" }