From 1f5491a5af7bd0f1ec4046994d6344886465cba5 Mon Sep 17 00:00:00 2001
From: Hannes Schulze <haschu0103@outlook.de>
Date: Sun, 5 Apr 2026 16:15:03 +0200
Subject: initial codegen

---
 lib/CWayland/CWayland.cc | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/CWayland/CWayland.cc')

diff --git a/lib/CWayland/CWayland.cc b/lib/CWayland/CWayland.cc
index 5f9b052..0c02d66 100644
--- a/lib/CWayland/CWayland.cc
+++ b/lib/CWayland/CWayland.cc
@@ -1279,4 +1279,12 @@ lean_obj_res waylean_proxy_keep(b_lean_obj_arg proxy)
 {
     (void)proxy;
     return lean_io_result_mk_ok(lean_box(0));
+}
+
+// Proxy.getType : (proxy : @& Proxy) → IO String
+lean_obj_res waylean_proxy_get_type(b_lean_obj_arg proxy_obj)
+{
+    auto proxy = static_cast<wl_proxy*>(lean_get_external_data(proxy_obj));
+    auto name = wl_proxy_get_interface(proxy)->name;
+    return lean_io_result_mk_ok(lean_mk_string(name));
 }
\ No newline at end of file
-- 
cgit v1.3.1