1 files changed, 3 insertions, 0 deletions
diff --git a/src/elab.sml b/src/elab.sml
index a289d633..b08d9a6c 100644
--- a/src/elab.sml
+++ b/src/elab.sml
@@ -72,6 +72,9 @@ datatype exp' =
        | ECApp of exp * con
        | ECAbs of explicitness * string * kind * exp
 
+       | ERecord of (con * exp) list
+       | EField of exp * con * { field : con, rest : con }
+
        | EError
 
 withtype exp = exp' located