diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-11-10 15:18:30 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-11-10 15:18:30 +0300 |
| commit | 0d8b7efe4d74aa59513790da795ac4fde21be79b (patch) | |
| tree | 8a60217b6b8ac2c23e90dcb71df457c03d3c5acd /src/Windows/Utils.hs | |
| parent | README update (diff) | |
| download | windows-env-0d8b7efe4d74aa59513790da795ac4fde21be79b.tar.gz windows-env-0d8b7efe4d74aa59513790da795ac4fde21be79b.zip | |
safer registry access routines
+ use patched Win32.
Diffstat (limited to 'src/Windows/Utils.hs')
| -rw-r--r-- | src/Windows/Utils.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Windows/Utils.hs b/src/Windows/Utils.hs index 06e495c..66f2df5 100644 --- a/src/Windows/Utils.hs +++ b/src/Windows/Utils.hs @@ -8,11 +8,13 @@ module Windows.Utils ( notifyEnvironmentUpdate ) where +import Foreign.C.Types (CIntPtr(..)) + import qualified Graphics.Win32.GDI.Types as WinAPI import qualified Graphics.Win32.Message as WinAPI import qualified System.Win32.Types as WinAPI -foreign import ccall "SendNotifyMessageW" +foreign import ccall "Windows.h SendNotifyMessageW" c_SendNotifyMessage :: WinAPI.HWND -> WinAPI.WindowMessage -> WinAPI.WPARAM -> WinAPI.LPARAM -> IO WinAPI.LRESULT notifyEnvironmentUpdate :: IO () |