aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/src/WindowsEnv/Utils.hs
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2017-05-26 03:45:39 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2017-05-26 03:45:39 +0300
commit202e1a58d5228e4efd6bafbe7b755d7bd192f516 (patch)
treed23d9b3d219eecdf48ee8f81415043e6fd5232ed /src/WindowsEnv/Utils.hs
parentrename directories (diff)
downloadwindows-env-202e1a58d5228e4efd6bafbe7b755d7bd192f516.tar.gz
windows-env-202e1a58d5228e4efd6bafbe7b755d7bd192f516.zip
fix x86 builds
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 ()