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