Fixed PGListener breaking live reload because it's not stopping on ca…

…ncel
digitallyinduced · Jan 8, 2022 · 9e89be1 · 9e89be1
1 parent beb6de9
commit 9e89be1
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/IHP/PGListener.hs b/IHP/PGListener.hs
@@ -227,8 +227,11 @@ notifyLoop listeningToVar listenToVar subscriptions = do
         result <- Exception.try innerLoop
         case result of
             Left (error :: SomeException) -> do
-                let ?context = ?modelContext -- Log onto the modelContext logger
-                Log.info ("PGListener is going to restart, loop failed with exception: " <> displayException error)
+                case fromException error of
+                    Just (error :: AsyncCancelled) -> throw error
+                    notification -> do
+                        let ?context = ?modelContext -- Log onto the modelContext logger
+                        Log.info ("PGListener is going to restart, loop failed with exception: " <> displayException error)
             Right _ -> pure ()