-
- threadId <- forkIO $ void $ serverHandler serverOut context
- (result, _) <- runSession context initState session
-
- killThread threadId
+ launchServerHandler = forkIO $ void $ serverHandler serverOut context
+ (result, _) <- bracket launchServerHandler killThread $
+ const $ runSession context initState session