diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/monad.urp | 3 | ||||
| -rw-r--r-- | tests/monadTest.ur | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/tests/monad.urp b/tests/monad.urp new file mode 100644 index 00000000..91523ca2 --- /dev/null +++ b/tests/monad.urp @@ -0,0 +1,3 @@ +$/monad +$/list +monadTest diff --git a/tests/monadTest.ur b/tests/monadTest.ur new file mode 100644 index 00000000..16a10f74 --- /dev/null +++ b/tests/monadTest.ur @@ -0,0 +1,3 @@ +val x : transaction int = Monad.liftM2 plus (return 1) (return 2) + +val x : transaction xbody = List.mapXiM (fn i x => return <xml><li>{[i]} = {[x]}</li></xml>) (1 :: 2 :: []) |