summaryrefslogtreecommitdiff
path: root/libraries/base/Data/Foldable.hs
diff options
context:
space:
mode:
Diffstat (limited to 'libraries/base/Data/Foldable.hs')
-rw-r--r--libraries/base/Data/Foldable.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/libraries/base/Data/Foldable.hs b/libraries/base/Data/Foldable.hs
index c17de972af..82bb3d9077 100644
--- a/libraries/base/Data/Foldable.hs
+++ b/libraries/base/Data/Foldable.hs
@@ -364,6 +364,8 @@ instance Foldable ((,) a) where
foldMap f (_, y) = f y
foldr f z (_, y) = f y z
+ length _ = 1
+ null _ = False
-- | @since 4.8.0.0
instance Foldable (Array i) where