SupplyInstance.hs