diff options
author | 2008-07-20 10:11:16 -0400 | |
---|---|---|
committer | 2008-07-20 10:11:16 -0400 | |
commit | d76bf83a5e8eb9a0b4e194f83cfadd8d55c00dfd (patch) | |
tree | 8e7af4b896c122b1d91b8abb2024ea8f115f5d0e /src/monoize.sml | |
parent | 1500c4fedf82243dfbee5fff8ea392905f0a8c80 (diff) |
Form binding parameters threaded through
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 29 |
1 files changed, 23 insertions, 6 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 4c28fb48..d35d9092 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -138,15 +138,28 @@ fun monoExp env (all as (e, loc)) = | L.EFfi mx => (L'.EFfi mx, loc) | L.EFfiApp (m, x, es) => (L'.EFfiApp (m, x, map (monoExp env) es), loc) - | L.EApp ((L.ECApp ((L.EFfi ("Basis", "cdata"), _), - _), _), se) => (L'.EFfiApp ("Basis", "htmlifyString", [monoExp env se]), loc) + | L.EApp ( + (L.ECApp ( + (L.ECApp ( + (L.ECApp ((L.EFfi ("Basis", "cdata"), _), _), _), + _), _), + _), _), + se) => (L'.EFfiApp ("Basis", "htmlifyString", [monoExp env se]), loc) | L.EApp ( (L.EApp ( (L.ECApp ( (L.ECApp ( (L.ECApp ( - (L.EFfi ("Basis", "join"), - _), _), _), + (L.ECApp ( + (L.ECApp ( + (L.ECApp ( + (L.ECApp ( + (L.EFfi ("Basis", "join"), + _), _), _), + _), _), + _), _), + _), _), + _), _), _), _), _), _), xml1), _), @@ -159,8 +172,12 @@ fun monoExp env (all as (e, loc)) = (L.ECApp ( (L.ECApp ( (L.ECApp ( - (L.EFfi ("Basis", "tag"), - _), _), _), _), _), _), _), _), _), + (L.ECApp ( + (L.ECApp ( + (L.ECApp ( + (L.ECApp ( + (L.EFfi ("Basis", "tag"), + _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), attrs), _), tag), _), xml) => |