From 9667cd1a34d711f547bf79d7dc64ef69a2c9f51b Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 20 Feb 2022 00:53:26 +0100
Subject: [PATCH] Restict type
Co-authored-by: Jan Beinke <git@janbeinke.com>
---
src/Quasar/Async/STMHelper.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Quasar/Async/STMHelper.hs b/src/Quasar/Async/STMHelper.hs
index 3b92b19..143cbd1 100644
--- a/src/Quasar/Async/STMHelper.hs
+++ b/src/Quasar/Async/STMHelper.hs
@@ -33,7 +33,7 @@ startShortIO fn (TIOWorker jobQueue) exChan = do
failAsyncVar_ resultVar $ toException $ AsyncException ex
Right result -> putAsyncVar_ resultVar result
-startShortIO_ :: forall a. ShortIO a -> TIOWorker -> ExceptionChannel -> STM ()
+startShortIO_ :: ShortIO () -> TIOWorker -> ExceptionChannel -> STM ()
startShortIO_ x y z = void $ startShortIO x y z
--
GitLab