acid-state-0.8.1: examples/RemoteServer.hs

{-# LANGUAGE DeriveDataTypeable, TypeFamilies, TemplateHaskell #-}
module Main (main) where

import Data.Acid
import Data.Acid.Remote (acidServer)

import Control.Exception (bracket)
import Data.Typeable

import Network

import RemoteCommon

-- open a server on port 8080

main :: IO ()
main =
    bracket
      (openLocalState $ StressState 0)
      closeAcidState
      (\s -> acidServer s (PortNumber 8080))