From 7ebb4a56910fc95a98e68996e1fcc05319d22b1a Mon Sep 17 00:00:00 2001
From: konsumlamm <konsumlamm@gmail.com>
Date: Fri, 15 Sep 2023 02:03:37 +0200
Subject: [PATCH] Fix `pure` import
---
Control/Concurrent/STM/TBQueue.hs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/Control/Concurrent/STM/TBQueue.hs b/Control/Concurrent/STM/TBQueue.hs
index 2cd9007..2f32b56 100644
--- a/Control/Concurrent/STM/TBQueue.hs
+++ b/Control/Concurrent/STM/TBQueue.hs
@@ -45,6 +45,9 @@ module Control.Concurrent.STM.TBQueue (
isFullTBQueue,
) where
+#if !MIN_VERSION_base(4,8,0)
+import Control.Applicative (pure)
+#endif
import Data.Array.Base
import Data.Maybe (isJust, isNothing)
import Data.Typeable (Typeable)
--
GitLab