annotate lib/ur/monad.ur @ 835:b0a85cbefed2

Less whining about match failures; fix singleton record Jscomp bug
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Jun 2009 12:40:09 -0400
parents 74e9e7642f08
children d1d0b18afd3d
rev   line source
adamc@834 1 fun exec [m ::: Type -> Type] (_ : monad m) [ts ::: {Type}] r (fd : folder ts) =
adamc@834 2 foldR [m] [fn ts => m $ts]
adamc@834 3 (fn [nm :: Name] [v :: Type] [rest :: {Type}] [[nm] ~ rest] action acc =>
adamc@834 4 this <- action;
adamc@834 5 others <- acc;
adamc@834 6 return ({nm = this} ++ others))
adamc@834 7 (return {}) [ts] fd r