yogsototh/pinboard
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add runPinboardE

Browse source
This commit is contained in:
Jon Schoning 2016-11-10 23:58:38 -06:00
parent db26f9b879
commit ecbf27c79e
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Pinboard/Client.hs
View file

@ -22,6 +22,7 @@ module Pinboard.Client
, PinboardConfig(..)
-- * Monadic
, runPinboard
, runPinboardE
, pinboardJson
-- * Single
, runPinboardSingleRaw
@ -99,8 +100,13 @@ defaultPinboardConfig =
runPinboard
:: (MonadIO m, MonadCatch m, MonadErrorPinboard e)
=> PinboardConfig -> PinboardT m a -> m (e a)
runPinboard config f = do
mgr <- liftIO newMgr
runPinboard config f =
liftIO newMgr >>= \mgr -> runPinboardE (config, mgr) f
runPinboardE
:: (MonadIO m, MonadCatch m, MonadErrorPinboard e)
=> PinboardEnv -> PinboardT m a -> m (e a)
runPinboardE (config, mgr) f =
eitherToMonadError <$> runPinboardT (config, mgr) f
-- | Create a Pinboard value from a PinboardRequest w/ json deserialization