From 940275227a8980250c883c0f41386949cb50516f Mon Sep 17 00:00:00 2001
From: Egor Tensin <egor@tensin.name>
Date: Thu, 17 Sep 2026 08:43:20 +0500
Subject: WindowsEnv.Registry: use upstream's regDeleteValue

---
 src/WindowsEnv/Registry.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/WindowsEnv/Registry.hs b/src/WindowsEnv/Registry.hs
index ba7cfc6..b24e018 100644
--- a/src/WindowsEnv/Registry.hs
+++ b/src/WindowsEnv/Registry.hs
@@ -275,7 +275,4 @@ setStringValue keyPath valueName value =
 deleteValue :: IsKeyPath a => a -> ValueName -> ExceptT IOError IO ()
 deleteValue keyPath valueName =
     withHandle keyPath $ \keyHandle ->
-    withForeignPtr keyHandle $ \keyHandlePtr ->
-    WinAPI.withTString valueName $ \valueNamePtr ->
-    WinAPI.failUnlessSuccess "RegDeleteValueW" $
-        WinAPI.c_RegDeleteValue keyHandlePtr valueNamePtr
+    WinAPI.regDeleteValue keyHandle valueName
-- 
cgit v1.3