21 lines
435 B
Plaintext
21 lines
435 B
Plaintext
!import "prelude" !Local
|
|
!import "view" !Local
|
|
!import "views.catalog" !Local
|
|
|
|
-- Lowering of map-success.source.txt to portable typed-program metadata.
|
|
-- Symbols:
|
|
-- 100 map
|
|
-- 101 f
|
|
-- 102 xs
|
|
-- 103 partial
|
|
-- 104 out
|
|
|
|
program =
|
|
listMapUseContract viewBool viewString 100 101 102 103 104
|
|
|
|
main =
|
|
matchResult
|
|
(diag env : renderDiagnostic diag)
|
|
(env rest : "ok")
|
|
(checkTypedProgramWith policyStrict program)
|