myState :: JWK -> (String -> IO ()) -> IO (CragReader, CragState)
myState jwk step = do
  manager <- newUnsafeTestManager
  let logger x = step ("[cragLog] " <> x)
  (Right state) <-
    runExceptT $ acmePerformRunner' manager (Just logger) (config jwk)
  return state
myState :: JWK -> (String -> IO ()) -> IO (CragReader, CragState)
myState jwk step = do
  manager <- newUnsafeTestManager
  let logger x = step ("[cragLog] " <> x)
  (Right state) <-
    runExceptT $ acmePerformRunner' manager (Just logger) (config jwk)
  return state
myState jwk step = do
  manager <- newUnsafeTestManager
  let logger x = step ("[cragLog] " <> x)
  (Right state) <-
    runExceptT $ acmePerformRunner' manager (Just logger) (config jwk)
  return state