dhall-concourse/helpers/tryWithHooks.dhall

let Types = ../types/package.dhall

let tryStep
    : Types.Step → Types.StepHooks Types.Step → Types.Step
    = λ(step : Types.Step) →
      λ(hooks : Types.StepHooks Types.Step) →
      λ(Step : Type) →
      λ(constructors : Types.StepConstructors Step) →
        constructors.try
          (step Step constructors)
          (./translateHooks.dhall Step constructors hooks)

in  tryStep