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

b/test/hs/Test/Ganeti/Luxi.hs
126 126 
  -- we need to create the server first, otherwise (if we do it in the
127 127 
  -- forked thread) the client could try to connect to it before it's
128 128 
  -- ready
129 
  server <- run $ Luxi.getServer fpath
129 
  server <- run $ Luxi.getServer False fpath
130 130 
  -- fork the server responder
131 131 
  _ <- run . forkIO $
132 132 
    bracket

Also available in: Unified diff