Include "fn" in function pretty print

2024-12-11 17:19:32 -05:00
parent fd16a12e7c
commit c1fd18d525
1 changed files with 1 additions and 1 deletions
--- a/src/Windows12/Ast.hs
+++ b/src/Windows12/Ast.hs
@ -199,7 +199,7 @@ instance Pretty TLEnum where

 instance Pretty TLFunc where
  pretty (Func n args ret body) =
-    pretty n <> parens (hsep (punctuate comma (map pretty args))) <+> "->" <+> pretty ret <+> prettyBlock body
+    "fn " <> pretty n <> parens (hsep (punctuate comma (map pretty args))) <+> "->" <+> pretty ret <+> prettyBlock body

 instance Pretty TL where
  pretty (TLStruct s) = pretty s