SupplyChain.Core.Connect

Vendor to job

(>-) infixl 6

Arguments

:: Vendor up down action

Upstream

-> Job down action product

Downstream

-> Job up action product

Modify a job with a vendor that interprets its requests

(>+) infixl 6

Arguments

:: Vendor up down action

Upstream

-> Job down action product

Downstream

-> Job up action (Referral up down action product)

Connect a vendor to a job, producing a job which returns both the product and a new version of the vendor.

Use this function instead of (>-) if you need to attach a succession of jobs to one stateful vendor.

Vendor to vendor

(>->) infixl 7

Arguments

:: Vendor up middle action

Upstream

-> Vendor middle down action

Downstream

-> Vendor up down action

Connect two vendors; the first interprets requests made by the second

Referral

joinReferral :: Referral up middle action (Referral middle down action product) -> Referral up down action product

Sort of resembles what a join implementation for Referral might look like, modulo a subtle difference in the types