diff options
| author | Egor Tensin <egor@tensin.name> | 2026-09-17 08:43:20 +0500 |
|---|---|---|
| committer | Egor Tensin <egor@tensin.name> | 2026-09-17 08:43:20 +0500 |
| commit | 940275227a8980250c883c0f41386949cb50516f (patch) | |
| tree | 827156a45867eb55907a599b417a049618ac2d33 /src | |
| parent | stack: try bumping the resolver (diff) | |
| download | windows-env-940275227a8980250c883c0f41386949cb50516f.tar.gz windows-env-940275227a8980250c883c0f41386949cb50516f.zip | |
WindowsEnv.Registry: use upstream's regDeleteValue
Diffstat (limited to 'src')
| -rw-r--r-- | src/WindowsEnv/Registry.hs | 5 |
1 files changed, 1 insertions, 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 |