From d5c7e2826ff788e09e2f862aae69a090b6e50971 Mon Sep 17 00:00:00 2001
From: Ethan Girouard <ethan@girouard.com>
Date: Mon, 1 Sep 2025 16:00:54 -0400
Subject: [PATCH] Struct members should take in pointer to self

---
 src/Windows12/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Windows12/Parser.hs b/src/Windows12/Parser.hs
index 611f231..46ccf7d 100644
--- a/src/Windows12/Parser.hs
+++ b/src/Windows12/Parser.hs
@@ -148,7 +148,7 @@ memberFuncP = do
   args <- parens (sepBy (Bind <$> identifier <* symbol ":" <*> typeP) (symbol ","))
   retType <- (symbol "->" *> typeP) <|> pure VoidType
   body <- braces (many stmtP)
-  return $ Func name (Bind "self" self : args) retType body
+  return $ Func name (Bind "self" (PtrType self) : args) retType body
 
 organize :: [TL] -> Program
 organize tls = Program structs enums funcs