acid-state-0.12.2: examples/RemoteServer.hs

module Main where

import           Control.Exception (bracket)
import           Data.Acid         (closeAcidState, openLocalState)
import           Data.Acid.Remote  (acidServer, skipAuthenticationCheck)
import           Network           (PortID (..))
import           RemoteCommon      (StressState (..))

main :: IO ()
main = bracket (openLocalState $ StressState 0)
       closeAcidState $ acidServer skipAuthenticationCheck (PortNumber 8080)