diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2017-05-26 04:51:20 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2017-05-26 04:51:20 +0300 |
| commit | bdf50a5e75f9fad6ce9dd318f4bfcaec883514f3 (patch) | |
| tree | 4a780bdf75a5f3c77c39ff867cf1ceb3b7a0cdc3 /src/Windows | |
| parent | fix x86 builds (diff) | |
| download | windows-env-bdf50a5e75f9fad6ce9dd318f4bfcaec883514f3.tar.gz windows-env-bdf50a5e75f9fad6ce9dd318f4bfcaec883514f3.zip | |
add comments to `foreign` importsv0.1.0.0
Diffstat (limited to '')
| -rw-r--r-- | src/WindowsEnv/Registry.hs | 2 | ||||
| -rw-r--r-- | src/WindowsEnv/Utils.hs | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/src/WindowsEnv/Registry.hs b/src/WindowsEnv/Registry.hs index 6eb52ca..4004734 100644 --- a/src/WindowsEnv/Registry.hs +++ b/src/WindowsEnv/Registry.hs @@ -152,6 +152,8 @@ decodeString (_, bytes) = T.unpack dropLastZero #include "ccall.h" +-- These aren't provided by Win32 (as of version 2.4.0.0). + foreign import WINDOWS_ENV_CCALL unsafe "Windows.h RegQueryValueExW" c_RegQueryValueEx :: WinAPI.PKEY -> WinAPI.LPCTSTR -> WinAPI.LPDWORD -> WinAPI.LPDWORD -> WinAPI.LPBYTE -> WinAPI.LPDWORD -> IO WinAPI.ErrCode diff --git a/src/WindowsEnv/Utils.hs b/src/WindowsEnv/Utils.hs index 4432a95..2dffaef 100644 --- a/src/WindowsEnv/Utils.hs +++ b/src/WindowsEnv/Utils.hs @@ -18,6 +18,8 @@ import qualified System.Win32.Types as WinAPI #include "ccall.h" +-- SendNotifyMessage isn't provided by Win32 (as of version 2.4.0.0). + foreign import WINDOWS_ENV_CCALL "Windows.h SendNotifyMessageW" c_SendNotifyMessage :: WinAPI.HWND -> WinAPI.WindowMessage -> WinAPI.WPARAM -> WinAPI.LPARAM -> IO WinAPI.LRESULT |