diff options
Diffstat (limited to 'src/Network/ACME.hs')
-rw-r--r-- | src/Network/ACME.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 | |||
157 | type ACME = RWST Env () Nonce ResIO | 157 | type ACME = RWST Env () Nonce ResIO |
158 | 158 | ||
159 | runACME :: URI -> Keys -> ACME a -> IO a | 159 | runACME :: URI -> Keys -> ACME a -> IO a |
160 | runACME url keys f = WS.withSession $ \sess -> do | 160 | runACME url keys f = do |
161 | sess <- WS.newSession | ||
161 | Just (dir, nonce) <- getDirectory sess (show url) | 162 | Just (dir, nonce) <- getDirectory sess (show url) |
162 | runResourceT $ fst <$> evalRWST f (Env dir keys sess) nonce | 163 | runResourceT $ fst <$> evalRWST f (Env dir keys sess) nonce |
163 | 164 | ||