From 460c708d7fa271b33ad998a373c36d6ae3c60cd4 Mon Sep 17 00:00:00 2001
From: Ryan Scott <ryan.gl.scott@gmail.com>
Date: Tue, 2 Nov 2021 18:02:26 -0400
Subject: [PATCH] Patch OneTuple to work around ghc/ghc#20562 on HEAD

---
 patches/OneTuple-0.3.1.patch | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 patches/OneTuple-0.3.1.patch

diff --git a/patches/OneTuple-0.3.1.patch b/patches/OneTuple-0.3.1.patch
new file mode 100644
index 00000000..b0c0a84e
--- /dev/null
+++ b/patches/OneTuple-0.3.1.patch
@@ -0,0 +1,13 @@
+diff --git a/src/Data/Tuple/OneTuple.hs b/src/Data/Tuple/OneTuple.hs
+index 8700132..cb7feb0 100644
+--- a/src/Data/Tuple/OneTuple.hs
++++ b/src/Data/Tuple/OneTuple.hs
+@@ -21,7 +21,7 @@ import Data.Tuple.Solo
+ type OneTuple = Solo
+ 
+ only :: OneTuple a -> a
+-only = getSolo
++only (Solo x) = x
+ 
+ #if __GLASGOW_HASKELL__ >= 708
+ #if __GLASGOW_HASKELL__ >= 710
-- 
GitLab