From dafed965afa238ccac7882f4b6a9b463b2697639 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Fri, 1 Sep 2023 12:10:49 +0100
Subject: [PATCH] Release 2.3.1

---
 evdev-streamly/evdev-streamly.cabal | 2 +-
 evdev/CHANGELOG.md                  | 3 +++
 evdev/evdev.cabal                   | 4 ++--
 evdev/src/Evdev.hs                  | 2 +-
 4 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/evdev-streamly/evdev-streamly.cabal b/evdev-streamly/evdev-streamly.cabal
index 20a95c5..4216e52 100644
--- a/evdev-streamly/evdev-streamly.cabal
+++ b/evdev-streamly/evdev-streamly.cabal
@@ -36,7 +36,7 @@ library
         rawfilepath ^>= {1.0, 1.1},
         streamly ^>= 0.8,
         streamly-fsnotify ^>= 1.1.1,
-        unix ^>= 2.7.2,
+        unix ^>= 2.8,
     default-language: GHC2021
     default-extensions:
         LambdaCase
diff --git a/evdev/CHANGELOG.md b/evdev/CHANGELOG.md
index e9e8900..ae94e39 100644
--- a/evdev/CHANGELOG.md
+++ b/evdev/CHANGELOG.md
@@ -1,5 +1,8 @@
 # Revision history for evdev
 
+## 2.3.1 -- 01-09-2023
+* Migrate to `unix-2.8`.
+
 ## 2.3.0 -- 01-09-2023
 * Add `deviceOptsFromEvents` for more easily creating UInput devices with desired capabilities.
 * Add some extra `Read` instances.
diff --git a/evdev/evdev.cabal b/evdev/evdev.cabal
index 036e464..d2120a3 100644
--- a/evdev/evdev.cabal
+++ b/evdev/evdev.cabal
@@ -1,6 +1,6 @@
 cabal-version:       3.0
 name:                evdev
-version:             2.3.0
+version:             2.3.1.1
 author:              George Thomas
 maintainer:          George Thomas
 description:         Provides access to the Linux event device interface.
@@ -28,7 +28,7 @@ common common
         mtl ^>= {2.2, 2.3},
         rawfilepath ^>= {1.0, 1.1},
         time ^>= {1.9.3, 1.10, 1.11, 1.12, 1.13},
-        unix ^>= 2.7.2,
+        unix ^>= 2.8,
     default-language: GHC2021
     default-extensions:
         BlockArguments
diff --git a/evdev/src/Evdev.hs b/evdev/src/Evdev.hs
index ed4d41d..455d112 100644
--- a/evdev/src/Evdev.hs
+++ b/evdev/src/Evdev.hs
@@ -205,7 +205,7 @@ toCTimeVal t = LL.CTimeVal n (round $ f * 1_000_000)
 Use 'newDeviceFromFd' if you need more control over how the device is created.
 -}
 newDevice :: RawFilePath -> IO Device
-newDevice path = newDeviceFromFd =<< openFd path ReadWrite Nothing defaultFileFlags
+newDevice path = newDeviceFromFd =<< openFd path ReadWrite defaultFileFlags
 
 {- | Generalisation of 'newDevice', in case one needs control over the file descriptor,
 e.g. in order to set a particular 'System.Posix.FileMode', 'System.Posix.OpenMode', or 'System.Posix.OpenFileFlags'.