1 files changed, 6 insertions, 0 deletions
diff --git a/src/prepare.sml b/src/prepare.sml
index 64ccb465..f74b8747 100644
--- a/src/prepare.sml
+++ b/src/prepare.sml
@@ -60,6 +60,12 @@ fun prepExp (e as (_, loc), sns) =
         in
             ((ECon (dk, pc, SOME e), loc), sns)
         end
+      | ESome (t, e) =>
+        let
+            val (e, sns) = prepExp (e, sns)
+        in
+            ((ESome (t, e), loc), sns)
+        end
       | EFfi _ => (e, sns)
       | EFfiApp (m, x, es) =>
         let