From 7261c6a804b13c0a56d6251208a5afd40cac874a Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Wed, 11 Aug 2021 16:20:38 +0200
Subject: [PATCH] Add functions to create a failed task

---
 src/Quasar/Core.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/Quasar/Core.hs b/src/Quasar/Core.hs
index d809050..096d144 100644
--- a/src/Quasar/Core.hs
+++ b/src/Quasar/Core.hs
@@ -15,7 +15,9 @@ module Quasar.Core (
   cancelTask,
   cancelTaskIO,
   toTask,
+  completedTask,
   successfulTask,
+  failedTask,
 
   -- * AsyncIO
   AsyncIO,
@@ -130,8 +132,15 @@ cancelTaskIO = awaitIO <=< dispose
 toTask :: IsAwaitable r a => a -> Task r
 toTask = Task . toAwaitable
 
+completedTask :: Either SomeException r -> Task r
+completedTask = toTask . completedAwaitable
+
+-- | Alias for `pure`
 successfulTask :: r -> Task r
-successfulTask = Task . successfulAwaitable
+successfulTask = pure
+
+failedTask :: SomeException -> Task r
+failedTask = toTask . failedAwaitable
 
 
 
-- 
GitLab