diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-03-02 16:00:48 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-03-02 16:00:48 -0500 |
| commit | 46e60fb6904b05340446e12d4a88a090b19b85fa (patch) | |
| tree | 35ff2e860464207021d5a23b6c819398e9d19a7c /demo | |
| parent | 74e835c7db56fb5e716add3bb8fe19534b557282 (diff) | |
Tone down Reduce and compensate with a new push-lambda-inside-case rule in MonoOpt; expand more Basis synonyms in Monoize
Diffstat (limited to 'demo')
| -rw-r--r-- | demo/metaform.ur | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/demo/metaform.ur b/demo/metaform.ur index 606b3863..0a664005 100644 --- a/demo/metaform.ur +++ b/demo/metaform.ur @@ -5,7 +5,7 @@ functor Make (M : sig end) = struct fun handler values = return <xml><body> - {@foldURX2 [string] [string] [body] + {@mapUX2 [string] [string] [body] (fn [nm :: Name] [rest :: {Unit}] [[nm] ~ rest] name value => <xml> <li> {[name]} = {[value]}</li> </xml>) |