!import "prelude" !Local
!import "view" !Local
!import "views.catalog" !Local

main =
  matchResult
    (diag env : renderDiagnostic diag)
    (env rest : "ok")
    (checkTypedProgramWith policyStrict listMapWrongListArgContract)