From 204007a4ef22c0f4fd68dbdd07328c3b03fc6396 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Sat, 13 Feb 2021 21:18:46 -0500
Subject: [PATCH] runTLS' for when the caller is also using ExceptT

---
 lib/Network/Protocol/TLS/GNU.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/Network/Protocol/TLS/GNU.hs b/lib/Network/Protocol/TLS/GNU.hs
index a9ab31a..0f99536 100644
--- a/lib/Network/Protocol/TLS/GNU.hs
+++ b/lib/Network/Protocol/TLS/GNU.hs
@@ -23,6 +23,7 @@ module Network.Protocol.TLS.GNU
 	, fromExceptT
 	
 	, runTLS
+	, runTLS'
 	, runClient
 	, getSession
 	, handshake
@@ -98,7 +99,10 @@ fromExceptT :: E.ExceptT Error UIO a -> TLS a
 fromExceptT = E.mapExceptT lift
 
 runTLS :: (Unexceptional m) => Session -> TLS a -> m (Either Error a)
-runTLS s tls = UIO.lift $ R.runReaderT (E.runExceptT tls) s
+runTLS s = E.runExceptT . runTLS' s
+
+runTLS' :: (Unexceptional m) => Session -> TLS a -> E.ExceptT Error m a
+runTLS' s = E.mapExceptT (UIO.lift . flip R.runReaderT s)
 
 runClient :: Transport -> TLS a -> IO (Either Error a)
 runClient transport tls = do
-- 
2.38.5