Revision 5e671e0e test/hs/Test/Ganeti/Luxi.hs
b/test/hs/Test/Ganeti/Luxi.hs | ||
---|---|---|
136 | 136 |
_ <- run . forkIO $ |
137 | 137 |
bracket |
138 | 138 |
(Luxi.acceptClient server) |
139 |
(\c -> Luxi.closeClient c >> Luxi.closeServer fpath server)
|
|
139 |
(\c -> Luxi.closeClient c >> Luxi.closeServer server) |
|
140 | 140 |
luxiServerPong |
141 | 141 |
replies <- run $ |
142 | 142 |
bracket |
Also available in: Unified diff