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

-- Lowering of map-wrong-list.source.txt to portable typed-program metadata.
-- Symbols:
--   160 map
--   161 f
--   162 xs
--   163 partial
--   164 out

program = listMapWrongListArgContract

main =
  matchResult
    (diag env : renderDiagnostic diag)
    (env rest : "unexpected-ok")
    (checkTypedProgramWith policyStrict program)