{-# LANGUAGE OverloadedStrings #-}
import Network.HTTP.Client
import Instagram
code = "xxx_some_code"
credentials = Credentials "xxx_some_api_id" "xxx_some_api_secret"
main :: IO ()
main = do
manager <- newManager defaultManagerSettings
token <- runInstagramT credentials manager $
getUserAccessTokenURL2 redirectUrl code
print token
src/Main.hs:14:9:
No instance for (Control.Monad.Trans.Resource.Internal.MonadResource
IO)
arising from a use of ‘getUserAccessTokenURL2’
In the second argument of ‘($)’, namely
‘getUserAccessTokenURL2 redirectUrl code’
In a stmt of a 'do' block:
token <- runInstagramT credentials manager
$ getUserAccessTokenURL2 redirectUrl code
In the expression:
do { manager <- newManager defaultManagerSettings;
token <- runInstagramT credentials manager
$ getUserAccessTokenURL2 redirectUrl code;
print token }