From 9055ada149dfc323b458ea45d718a8e2a1aff9e0 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 24 Mar 2016 11:29:01 -0400 Subject: [PATCH] Document fromThese. --- src/Data/Bifunctor/These.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Data/Bifunctor/These.hs b/src/Data/Bifunctor/These.hs index 9017b1b35..a892660ae 100644 --- a/src/Data/Bifunctor/These.hs +++ b/src/Data/Bifunctor/These.hs @@ -11,6 +11,7 @@ these f _ _ (This this) = f this these _ f _ (That that) = f that these _ _ f (These this that) = f this that +-- | Return a pair of values given These and defaults for either side. fromThese :: a -> b -> These a b -> (a, b) fromThese a b = these (flip (,) b) ((,) a) (,)