diff --git a/src/KMonad/Keyboard/IO/Linux/DeviceSource.hs b/src/KMonad/Keyboard/IO/Linux/DeviceSource.hs index cec128d4..4c25f3b0 100644 --- a/src/KMonad/Keyboard/IO/Linux/DeviceSource.hs +++ b/src/KMonad/Keyboard/IO/Linux/DeviceSource.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} {-# LANGUAGE DeriveAnyClass #-} {-| Module : KMonad.Keyboard.IO.Linux.DeviceSource @@ -131,7 +132,11 @@ lsOpen :: (HasLogFunc e) -> FilePath -- ^ The path to the device file -> RIO e DeviceFile lsOpen pr pt = do +#if MIN_VERSION_unix(2,8,0) + h <- liftIO . openFd pt ReadOnly $ +#else h <- liftIO . openFd pt ReadOnly Nothing $ +#endif OpenFileFlags False False False False False hd <- liftIO $ fdToHandle h logInfo "Initiating ioctl grab" diff --git a/src/KMonad/Keyboard/IO/Linux/UinputSink.hs b/src/KMonad/Keyboard/IO/Linux/UinputSink.hs index b6f8eec6..082c9092 100644 --- a/src/KMonad/Keyboard/IO/Linux/UinputSink.hs +++ b/src/KMonad/Keyboard/IO/Linux/UinputSink.hs @@ -27,7 +27,7 @@ import Data.Time.Clock.System (getSystemTime) import Foreign.C.String import Foreign.C.Types -import System.Posix +import System.Posix hiding (sync) import UnliftIO.Async (async) import UnliftIO.Process (spawnCommand)