diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2013-11-03 19:27:30 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2013-11-03 19:27:30 -0500 |
| commit | 5c5e76d8a816e08b8f251daf826761aae9290ed3 (patch) | |
| tree | 03de0d970495a013a2e126010600137ebb5746dd /tests | |
| parent | 804dc5b63fe72faa6d90b49bca5dcf5d2bcda0d6 (diff) | |
ListPair.map2, based on code by escalier@riseup.net
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/listpair.ur | 6 | ||||
| -rw-r--r-- | tests/listpair.urp | 5 |
2 files changed, 11 insertions, 0 deletions
diff --git a/tests/listpair.ur b/tests/listpair.ur new file mode 100644 index 00000000..4ecacfd3 --- /dev/null +++ b/tests/listpair.ur @@ -0,0 +1,6 @@ +val x = 1 :: 2 :: [] +val y = 3 :: 4 :: [] + +fun main () : transaction page = return <xml> + {[ListPair.map2 plus x y]} +</xml> diff --git a/tests/listpair.urp b/tests/listpair.urp new file mode 100644 index 00000000..1b447ed6 --- /dev/null +++ b/tests/listpair.urp @@ -0,0 +1,5 @@ +rewrite all Listpair/* + +$/list +$/listPair +listpair |