Error

    • No instance for (MonadFail
                         (Control.Monad.Trans.AWS.AWST'
                            Network.AWS.Env.Env
                            (Control.Monad.Trans.Resource.Internal.ResourceT IO)))
        arising from a use of ‘streamUpload’
    • In the second argument of ‘(.|)’, namely
        ‘streamUpload Nothing crtMultiUpl’
      In the first argument of ‘runConduit’, namely
        ‘(responseBody response .| streamUpload Nothing crtMultiUpl)’
      In a stmt of a 'do' block:
        runConduit
          (responseBody response .| streamUpload Nothing crtMultiUpl)
  |
7 |       runConduit (responseBody response .| streamUpload Nothing crtMultiUpl)
  |                                            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Main.hs

  
let crtMultiUpl = createMultipartUpload (BuketName "bucket") (ObjectKey "filename.txt")
manager <- liftIO $ newManager tlsManagerSettings
request <- liftIO $ parseRequest "https://nonS3.url"
liftIO . runResourceT $ runAWST env $ do
  response <- http request manager
  runConduit (responseBody response .| streamUpload Nothing crtMultiUpl)