main = do
  acsCtx <- acsContext (AcsInfo acsNS relyingPartyUrl issuerName issuerKey)
  manager <- newManagerSettings (mkManagerSettings (TLSSettingsSimple True False False) Nothing)
  forkIO (acsToken manager acsCtx >>= print)
  t1 <- acsToken manager acsCtx
  print t1
main = do
  acsCtx <- acsContext (AcsInfo acsNS relyingPartyUrl issuerName issuerKey)
  manager <- newManagerSettings (mkManagerSettings (TLSSettingsSimple True False False) Nothing)
  forkIO (acsToken manager acsCtx >>= print)
  t1 <- acsToken manager acsCtx
  print t1
main = do
  acsCtx <- acsContext (AcsInfo acsNS relyingPartyUrl issuerName issuerKey)
  manager <- newManagerSettings (mkManagerSettings (TLSSettingsSimple True False False) Nothing)
  forkIO (acsToken manager acsCtx >>= print)
  t1 <- acsToken manager acsCtx
  print t1