diff options
author | Adam Chlipala <adam@chlipala.net> | 2012-05-19 11:32:12 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2012-05-19 11:32:12 -0400 |
commit | a4bcc72f9e763e49b3ffefff09b1fe8924e440e1 (patch) | |
tree | 04d2d95798a412261154293e71323e4069718bf6 /tests | |
parent | 2be1e51f8036b1b473553d16f11ca63b068146ad (diff) |
Some standard library additions from Edward Z. Yang
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 :: []) |