diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+1.3.5
+
+* Add `Choice` instance for `Fold`
+
 1.3.4
 
 * Add `prefilter` and `prefilterM`
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-# `foldl` v1.3.4
+# `foldl` v1.3.5
 
 Use this `foldl` library when you want to compute multiple folds over a
 collection in one pass over the data without space leaks.
diff --git a/foldl.cabal b/foldl.cabal
--- a/foldl.cabal
+++ b/foldl.cabal
@@ -1,5 +1,5 @@
 Name: foldl
-Version: 1.3.4
+Version: 1.3.5
 Cabal-Version: >=1.8.0.2
 Build-Type: Simple
 License: BSD3
diff --git a/src/Control/Foldl.hs b/src/Control/Foldl.hs
--- a/src/Control/Foldl.hs
+++ b/src/Control/Foldl.hs
@@ -208,6 +208,10 @@
     lmap = premap
     rmap = fmap
 
+instance Choice Fold where
+  right' (Fold step begin done) = Fold (liftA2 step) (Right begin) (fmap done)
+  {-# INLINE right' #-}
+
 instance Comonad (Fold a) where
     extract (Fold _ begin done) = done begin
     {-#  INLINE extract #-}