apiCall :: AccountConfig -> IO BLI.ByteString
apiCall accountConfig = do
  manager <- newManager tlsManagerSettings
  request' <- parseRequest (url accountConfig)
  let request = setRequestManager manager
                $ setRequestHeader "PRIVATE-TOKEN"
                [B.pack $ key (accountConfig :: AccountConfig)]
                $ request'

  response <- httpLBS request
  return (getResponseBody response)
apiCall :: AccountConfig -> IO BLI.ByteString
apiCall accountConfig = do
  manager <- newManager tlsManagerSettings
  request' <- parseRequest (url accountConfig)
  let request = setRequestManager manager
                $ setRequestHeader "PRIVATE-TOKEN"
                [B.pack $ key (accountConfig :: AccountConfig)]
                $ request'

  response <- httpLBS request
  return (getResponseBody response)
apiCall accountConfig = do
  manager <- newManager tlsManagerSettings
  request' <- parseRequest (url accountConfig)
  let request = setRequestManager manager
                $ setRequestHeader "PRIVATE-TOKEN"
                [B.pack $ key (accountConfig :: AccountConfig)]
                $ request'

  response <- httpLBS request
  return (getResponseBody response)