aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/src/WindowsEnv/Utils.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/WindowsEnv/Utils.hs6
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 ()