mkDiscount :: Int -> ResourceType -> HarborDiscount
mkDiscount i resType = HarborDiscount (nResOf i resType)
mkDiscount :: Int -> ResourceType -> HarborDiscount
mkDiscount i resType = HarborDiscount (nResOf i resType)
mkDiscount i resType = HarborDiscount (nResOf i resType)