Do not wrap exceptions from async when invoking exception handler

Co-authored-by: Jan Beinke <git@janbeinke.com>

src/Quasar/Async.hs

@@ -36,7 +36,7 @@ async action = asyncWithUnmask \unmask -> unmask action
 asyncWithUnmask :: MonadResourceManager m => ((ResourceManagerIO a -> ResourceManagerIO a) -> ResourceManagerIO r) -> m (Awaitable r)
 asyncWithUnmask action = do
   resourceManager <- askResourceManager
-  asyncWithHandlerAndUnmask (throwToResourceManager resourceManager) action
+  asyncWithHandlerAndUnmask (throwToResourceManager resourceManager . AsyncException) action
 
 async_ :: MonadResourceManager m => (ResourceManagerIO ()) -> m ()
 async_ action = void $ async action

src/Quasar/Async/Unmanaged.hs

@@ -110,7 +110,9 @@ unmanagedAsyncWithHandlerAndUnmask handler action = do
           catchAll
             case result of
               Left (fromException -> Just AsyncDisposed) -> pure ()
-              Left ex -> handler ex
+              Left (fromException -> Just (AsyncException ex)) -> handler ex
+              -- Impossible code path reached
+              Left ex -> traceIO $ "Error in unmanagedAsyncWithHandlerAndUnmask: " <> displayException ex
               _ -> pure ()
             \ex -> traceIO $ "An exception was thrown while handling an async exception: " <> displayException ex