diff options
| author | Rose Hogenson <rosehogenson@posteo.net> | 2025-07-04 11:19:55 -0700 |
|---|---|---|
| committer | Rose Hogenson <rosehogenson@posteo.net> | 2025-07-04 11:19:55 -0700 |
| commit | ed48b02873f3ea3cab0107176d00eb00c9519766 (patch) | |
| tree | b8520790160c42466b5bef7644365259c6076bc4 /generate-show-syntax.sml | |
| parent | 73d1d16befe44d7d73db40b47aef0fd61285501d (diff) | |
| download | sml-ed48b02873f3ea3cab0107176d00eb00c9519766.tar.zst | |
Add signatures
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 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") |