From c48a992a6ed6ebd79c344b37364a680ddd948dea Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sat, 31 Aug 2024 13:08:56 -0700 Subject: Combine structs and expressions --- generate-show-syntax.sml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'generate-show-syntax.sml') diff --git a/generate-show-syntax.sml b/generate-show-syntax.sml index 708d1b7..d524fcc 100644 --- a/generate-show-syntax.sml +++ b/generate-show-syntax.sml @@ -45,7 +45,7 @@ val ast = | Result.Right x => x val (structName, decls) = case ast of - Syntax.ELet (Syntax.DStruct (structName, _, Syntax.SStruct decls) :: _, _) => (structName, decls) + Syntax.ELet (Syntax.DStruct (structName, _, Syntax.EStruct decls) :: _, _) => (structName, decls) | _ => raise Fail "ast has unexpected format (I can't print it sorry)" val out = TextIO.openOut (!(#o opts)) val _ = TextIO.output (out, "(*\n This file was generated by generate-show-syntax.sml. Do not edit manually.\n To regenerate, use\n\n sml generate-show-syntax.sml -o " ^ !(#o opts) ^ " " ^ filename ^ "\n*)\n\n") -- cgit v1.3.1