From 166bccac16d35d8a4b75a4c04c7479b389a81c4f Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 29 Jul 2008 13:50:53 -0400
Subject: Datatypes through cjrize, modulo decoding

---
 src/cjr.sml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/cjr.sml')

diff --git a/src/cjr.sml b/src/cjr.sml
index 129ff4e9..621ccf45 100644
--- a/src/cjr.sml
+++ b/src/cjr.sml
@@ -56,6 +56,7 @@ withtype exp = exp' located
 
 datatype decl' =
          DStruct of int * (string * typ) list
+       | DDatatype of string * int * (string * int * typ option) list
        | DVal of string * int * typ * exp
        | DFun of string * int * (string * typ) list * typ * exp
        | DFunRec of (string * int * (string * typ) list * typ * exp) list
-- 
cgit v1.2.3