[sc-92887] Fix async race condition during cleanup

At least, from context that seems an accurate summary of what's happening. This was recommended by @ocharles and has been working for CircuitHub per: jfischoff#251 (comment)
EdutainmentLIVE · Sep 16, 2021 · 3e3d011 · 3e3d011
1 parent 593e3eb
commit 3e3d011
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Database/Postgres/Temp/Internal.hs b/src/Database/Postgres/Temp/Internal.hs
@@ -362,8 +362,9 @@ start = startConfig defaultConfig
 --
 --   @since 1.12.0.0
 stop :: DB -> IO ()
-stop DB {..} =
-  Async.concurrently_ (stopPlan dbPostgresProcess) $ cleanupConfig dbResources
+stop DB {..} = do
+  void $ stopPlan dbPostgresProcess
+  cleanupConfig dbResources
 
 -- | Only stop the @postgres@ process but leave any temporary resources.
 --   Useful for testing backup strategies when used in conjunction with