Wrapping prismatic errors

Wrapping.hs

data WrapperError = WrappingS3Error S3Error
makeClassyPrisms ''WrapperError

instance AsS3Error WrapperError where
  _S3Error = _WrappingS3Error

inner
  :: ( AWS.MonadAWS m
     , MonadError e m
     , AsS3Error e
     , MonadResource m
     )
  => m S3.GetObjectResponse
inner = getObjectResponse "bucket" "key"

wrapper
  :: ( AWS.MonadAWS m
     , MonadError e m
     , AsWrapperError e
     , MonadResource m
     )
  => m S3.GetObjectResponse
wrapper = do
  (e :: Either S3Error S3.GetObjectResponse) <- runExceptT inner
  either (throwing _WrappingS3Error) pure e