module Reddit.Actions.Captcha
( needsCaptcha
, newCaptcha ) where
import Reddit.Types.Captcha
import Reddit.Types.Reddit
import qualified Reddit.Routes.Captcha as Route
needsCaptcha :: Monad m => RedditT m Bool
needsCaptcha :: RedditT m Bool
needsCaptcha = Route -> RedditT m Bool
forall a (m :: * -> *).
(FromJSON a, Monad m) =>
Route -> RedditT m a
runRoute Route
Route.needsCaptcha
newCaptcha :: Monad m => RedditT m CaptchaID
newCaptcha :: RedditT m CaptchaID
newCaptcha = do
POSTWrapped CaptchaID
c <- Route -> RedditT m (POSTWrapped CaptchaID)
forall a (m :: * -> *).
(FromJSON a, Monad m) =>
Route -> RedditT m a
runRoute Route
Route.newCaptcha
CaptchaID -> RedditT m CaptchaID
forall (m :: * -> *) a. Monad m => a -> m a
return CaptchaID
c