askAuthorizationBy :: MonadIO m => (Token -> String) -> (String -> IO String) -> OAuthMonadT m ()
askAuthorizationBy toURL asker = do
    token <- getToken
    ans <- liftIO $ asker (toURL token)
    putToken $ injectOAuthVerifier ans token
askAuthorizationBy :: MonadIO m => (Token -> String) -> (String -> IO String) -> OAuthMonadT m ()
askAuthorizationBy toURL asker = do
    token <- getToken
    ans <- liftIO $ asker (toURL token)
    putToken $ injectOAuthVerifier ans token
askAuthorizationBy toURL asker = do
    token <- getToken
    ans <- liftIO $ asker (toURL token)
    putToken $ injectOAuthVerifier ans token