{-# LANGUAGE CPP #-}
module System.Win32.Thread
( THANDLE, TID
, getCurrentThread
, suspendThread
, resumeThread
, withSuspendedThread
, getThreadId
, getCurrentThreadId
) where
import System.Win32.DebugApi
import System.Win32.Types ( failIfZero )
#include "windows_cconv.h"
getThreadId :: THANDLE -> IO TID
getThreadId :: THANDLE -> IO TID
getThreadId = String -> IO TID -> IO TID
forall a. (Eq a, Num a) => String -> IO a -> IO a
failIfZero String
"GetThreadId" (IO TID -> IO TID) -> (THANDLE -> IO TID) -> THANDLE -> IO TID
forall b c a. (b -> c) -> (a -> b) -> a -> c
. THANDLE -> IO TID
c_GetThreadId
getCurrentThreadId :: IO TID
getCurrentThreadId :: IO TID
getCurrentThreadId = String -> IO TID -> IO TID
forall a. (Eq a, Num a) => String -> IO a -> IO a
failIfZero String
"GetThreadId" IO TID
c_GetCurrentThreadId
foreign import WINDOWS_CCONV "windows.h GetCurrentThread"
getCurrentThread :: IO THANDLE
foreign import WINDOWS_CCONV "windows.h GetThreadId"
c_GetThreadId :: THANDLE -> IO TID
foreign import WINDOWS_CCONV "windows.h GetCurrentThreadId"
c_GetCurrentThreadId :: IO TID