NetworkSimulation.hs

-- |
-- >>> runNetworkOverTCP testNetwork
-- "hello"
-- >>> runNetworkOverHTTP testNetwork
-- "hello"
-- >>> runNetworkInMemory testNetwork
-- "hello"
testNetwork = do
    userA <- createConnection
    userB <- createConnection

    msgVar <- newEmptyMVar

    forkIO $ do
        msg <- waitMessage userA

    forkIO $ do
        sendMessage userB userA "hello"

    msg <- takeMVar msgVar

    return msg