@@ -16,6 +16,7 @@ import System.IO (hPutStrLn, stderr)
16import qualified Control.Distributed.Process.Extras.Internal.Types as DIT
16import qualified Control.Distributed.Process.Extras.Internal.Types as DIT
17import Control.Concurrent.MVar (putMVar, MVar)
17import Control.Concurrent.MVar (putMVar, MVar)
19+-- the state should be a mapping of remote connection to the disconnected transaction- the graph should be the same, so discon must be removed from the stm tuple
19serverDefinition :: ProcessDefinition Connection
20serverDefinition :: ProcessDefinition Connection
20serverDefinition = defaultProcess {
21serverDefinition = defaultProcess {
21 apiHandlers = [
22 apiHandlers = [
@@ -60,8 +61,9 @@ launchServer daemonConfig mPortMVar = do
60 hPutStrLn stderr ("Failed to create database connection: " ++ show err)
61 hPutStrLn stderr ("Failed to create database connection: " ++ show err)
61 pure False
62 pure False
62 Right conn -> do
63 Right conn -> do
63− let port = defaultServerPort
64+ let hostname = bindHost daemonConfig
65+ port = bindPort daemonConfig
64− etransport <- createTransport "127.0.0.1" (show port) defaultTCPParameters
66+ etransport <- createTransport hostname (show port) defaultTCPParameters
65 case etransport of
67 case etransport of
66 Left err -> error (show err)
68 Left err -> error (show err)
67 Right transport -> do
69 Right transport -> do