diff options
| author | Andrew Cady <d@jerkface.net> | 2019-06-30 11:20:16 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2019-06-30 11:20:16 -0400 |
| commit | 560baae4cbf6c2e4993476e89b853bdb38620e6b (patch) | |
| tree | c69d6ee984022a2b41f6bf80e685dfa3d81e6e3e | |
| parent | dd57a30831bda84f70ef43f1ed9d9bc90e0ee5e5 (diff) | |
fix warning about obsolete function
| -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 | ||