Revision d605e261 test/hs/Test/Ganeti/Luxi.hs

b/test/hs/Test/Ganeti/Luxi.hs
131 131
  -- we need to create the server first, otherwise (if we do it in the
132 132
  -- forked thread) the client could try to connect to it before it's
133 133
  -- ready
134
  server <- run $ Luxi.getServer False fpath
134
  server <- run $ Luxi.getLuxiServer False fpath
135 135
  -- fork the server responder
136 136
  _ <- run . forkIO $
137 137
    bracket
......
140 140
      luxiServerPong
141 141
  replies <- run $
142 142
    bracket
143
      (Luxi.getClient fpath)
143
      (Luxi.getLuxiClient fpath)
144 144
      Luxi.closeClient
145 145
      (`luxiClientPong` msgs)
146 146
  stop $ replies ==? msgs

Also available in: Unified diff