acid-state-0.15.0: examples/RemoteServer.hs

module RemoteServer 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)