From ed48b02873f3ea3cab0107176d00eb00c9519766 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Fri, 4 Jul 2025 11:19:55 -0700 Subject: Add signatures --- 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 c1e104f..708d1b7 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.SStruct 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