yaml-rpc-0.2: Test.hs

{-# LANGUAGE OverloadedStrings, TemplateHaskell #-}
-- | Test server
module Main where

import Data.Object.Yaml
import Data.Convertible.Base
import qualified Data.Map as M

import Network.YAML

import TestTypes
import Methods

-- Declare dispatchingRules for given functions
$(declareRules ['double, 'mySum, 'counter, 'ls])

main = do
  putStrLn "Listening..."
  -- Start 3 listeners on 3 ports
  forkA [persistentDispatcher 5000 dispatchingRules,
         persistentDispatcher 5001 dispatchingRules,
         persistentDispatcher 5002 dispatchingRules]
  return ()