Writing HTML

1 files changed, 14 insertions, 1 deletions

diff --git a/src/cloconv.sml b/src/cloconv.sml
index 4421003b..89d64fdf 100644
--- a/src/cloconv.sml
+++ b/src/cloconv.sml
@@ -189,7 +189,20 @@ fun ccExp env ((e, loc), D) =
             ((L'.EField (e1, x), loc), D)
         end
 
-      | L.EStrcat _ => raise Fail "Cloconv EStrcat"
+      | L.EStrcat (e1, e2) =>
+        let
+            val (e1, D) = ccExp env (e1, D)
+            val (e2, D) = ccExp env (e2, D)
+        in
+            ((L'.EStrcat (e1, e2), loc), D)
+        end
+
+      | L.EWrite e =>
+        let
+            val (e, D) = ccExp env (e, D)
+        in
+            ((L'.EWrite e, loc), D)
+        end
 
 fun ccDecl ((d, loc), D) =
     case d of