1
2
3
4
5
6
7
8
9
10
11
12
13
|
module RemoteServer where
import Control.Exception (bracket)
import Data.Acid (closeAcidState, openLocalState)
import Data.Acid.Remote (acidServer, acidServerSockAddr, skipAuthenticationCheck)
import RemoteCommon (StressState (..))
import Network.Socket (SockAddr(..))
main :: IO ()
main = bracket (openLocalState $ StressState 0)
closeAcidState $ acidServer skipAuthenticationCheck 8080
-- on Unixy systems we could use a Unix Domain Socket
-- closeAcidState $ acidServerSockAddr skipAuthenticationCheck (SockAddrUnix "remote.socket")
|
