From 560baae4cbf6c2e4993476e89b853bdb38620e6b Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Sun, 30 Jun 2019 11:20:16 -0400
Subject: fix warning about obsolete function

---
 src/Network/ACME.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Network/ACME.hs b/src/Network/ACME.hs
index 35eebcb..3a354ae 100644
--- a/src/Network/ACME.hs
+++ b/src/Network/ACME.hs
@@ -157,7 +157,8 @@ data Env = Env { getDir :: Directory, getKeys :: Keys, getSession :: WS.Session
 type ACME = RWST Env () Nonce ResIO
 
 runACME :: URI -> Keys -> ACME a -> IO a
-runACME url keys f = WS.withSession $ \sess -> do
+runACME url keys f = do
+  sess <- WS.newSession
   Just (dir, nonce) <- getDirectory sess (show url)
   runResourceT $ fst <$> evalRWST f (Env dir keys sess) nonce
 
-- 
cgit v1.2.3