diff options
| author | Rose Hogenson <rosehogenson@posteo.net> | 2024-08-31 13:08:56 -0700 |
|---|---|---|
| committer | Rose Hogenson <rosehogenson@posteo.net> | 2025-10-04 13:55:40 -0700 |
| commit | c48a992a6ed6ebd79c344b37364a680ddd948dea (patch) | |
| tree | 3df5e6f5b3c4854d25387154731f780b650008d4 /generate-show-syntax.sml | |
| parent | ed48b02873f3ea3cab0107176d00eb00c9519766 (diff) | |
| download | sml-c48a992a6ed6ebd79c344b37364a680ddd948dea.tar.zst | |
Combine structs and expressions
Diffstat (limited to 'generate-show-syntax.sml')
| -rw-r--r-- | generate-show-syntax.sml | 2 |
1 files changed, 1 insertions, 1 deletions
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") |