diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2017-05-26 03:45:39 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2017-05-26 03:45:39 +0300 |
| commit | 202e1a58d5228e4efd6bafbe7b755d7bd192f516 (patch) | |
| tree | d23d9b3d219eecdf48ee8f81415043e6fd5232ed /src/WindowsEnv/Utils.hs | |
| parent | rename directories (diff) | |
| download | windows-env-202e1a58d5228e4efd6bafbe7b755d7bd192f516.tar.gz windows-env-202e1a58d5228e4efd6bafbe7b755d7bd192f516.zip | |
fix x86 builds
Diffstat (limited to 'src/WindowsEnv/Utils.hs')
| -rw-r--r-- | src/WindowsEnv/Utils.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/WindowsEnv/Utils.hs b/src/WindowsEnv/Utils.hs index c852229..4432a95 100644 --- a/src/WindowsEnv/Utils.hs +++ b/src/WindowsEnv/Utils.hs @@ -5,6 +5,8 @@ -- Stability : experimental -- Portability : Windows-only +{-# LANGUAGE CPP #-} + module WindowsEnv.Utils ( notifyEnvironmentUpdate ) where @@ -14,7 +16,9 @@ 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 "Windows.h SendNotifyMessageW" +#include "ccall.h" + +foreign import WINDOWS_ENV_CCALL "Windows.h SendNotifyMessageW" c_SendNotifyMessage :: WinAPI.HWND -> WinAPI.WindowMessage -> WinAPI.WPARAM -> WinAPI.LPARAM -> IO WinAPI.LRESULT notifyEnvironmentUpdate :: IO () |