如何连接到Haskell中的Evernote API (使用httpClient和BinaryProtocol)？

import Network.HTTP.Client
import Network.HTTP.Client.TLS
import Thrift.Protocol.Binary
import Evernote.EDAM.UserStore.Client
import Evernote.EDAM.NoteStore.Client

manager <- newManager tlsManagerSettings

let userStoreUrl = "https://sandbox.evernote.com/edam/user"
userStoreReq <- parseRequest userStoreUrl
userStoreRes <- httpLbs userStoreReq manager
let userStore = BinaryProtocol (responseBody userStoreRes)
let userStoreClient = mkUserStoreClient userStore

let username = "your_username"
let password = "your_password"
let authReq = authenticateToUserStore userStoreClient username password
authRes <- invokeUserStore userStoreClient authReq
let authToken = authToken $ resValue authRes

let noteStoreUrl = noteStoreUrl $ userStoreUrlDetails $ resValue authRes
noteStoreReq <- parseRequest noteStoreUrl
noteStoreRes <- httpLbs noteStoreReq manager
let noteStore = BinaryProtocol (responseBody noteStoreRes)
let noteStoreClient = mkNoteStoreClient noteStore