diff --git a/src/Data/Tuple.purs b/src/Data/Tuple.purs
index bf1f42c..db1e0af 100644
--- a/src/Data/Tuple.purs
+++ b/src/Data/Tuple.purs
@@ -148,6 +148,8 @@ instance foldableTuple :: Foldable (Tuple a) where
 instance foldable1Tuple :: Foldable1 (Tuple a) where
   foldMap1 f (Tuple _ x) = f x
   fold1 (Tuple _ x) = x
+  foldr1 _ (Tuple _ x) = x
+  foldl1 _ (Tuple _ x) = x
 
 instance foldableWithIndexTuple :: FoldableWithIndex Unit (Tuple a) where
   foldrWithIndex f z (Tuple _ x) = f unit x z