src/Utility/IdleUser/X11.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE ForeignFunctionInterface #-}

module Utility.IdleUser.X11 (userIdleTime) where

import Foreign
import Foreign.C.Types

foreign import ccall unsafe "GetXIdleTime"
    getXIdleTime :: CUInt

userIdleTime :: Int
userIdleTime = undefined