From c1fd18d525bd516ff4fb62717d47b316e128d482 Mon Sep 17 00:00:00 2001 From: Ethan Girouard Date: Wed, 11 Dec 2024 17:19:32 -0500 Subject: [PATCH] Include "fn" in function pretty print --- src/Windows12/Ast.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Windows12/Ast.hs b/src/Windows12/Ast.hs index 09dcd10..32c5362 100644 --- 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