diff --git a/patches/OneTuple-0.3.1.patch b/patches/OneTuple-0.3.1.patch
new file mode 100644
index 0000000000000000000000000000000000000000..b0c0a84e02222c6805e9d5f1be38737ff6ace5be
--- /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