Mercurial > urweb
comparison lib/ur/monad.ur @ 898:d1d0b18afd3d
Working on Grid; have gone from one dynamic table bizareness to another
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 19 Jul 2009 17:45:02 -0400 |
| parents | 74e9e7642f08 |
| children | 7a4b026e45dd |
comparison
equal
deleted
inserted
replaced
| 897:2faf558b2d05 | 898:d1d0b18afd3d |
|---|---|
| 3 (fn [nm :: Name] [v :: Type] [rest :: {Type}] [[nm] ~ rest] action acc => | 3 (fn [nm :: Name] [v :: Type] [rest :: {Type}] [[nm] ~ rest] action acc => |
| 4 this <- action; | 4 this <- action; |
| 5 others <- acc; | 5 others <- acc; |
| 6 return ({nm = this} ++ others)) | 6 return ({nm = this} ++ others)) |
| 7 (return {}) [ts] fd r | 7 (return {}) [ts] fd r |
| 8 | |
| 9 fun ignore [m ::: Type -> Type] (_ : monad m) [t] (v : m t) = x <- v; return () |