From fd150be38eb640ec6a9c2f5573d7dc74503bd3d7 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 4 Apr 2016 15:39:07 -0400 Subject: [PATCH] :fire: `bothOfThese`. --- src/Data/Functor/Both.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/Data/Functor/Both.hs b/src/Data/Functor/Both.hs index 73c4db0b9..41b5d878e 100644 --- a/src/Data/Functor/Both.hs +++ b/src/Data/Functor/Both.hs @@ -16,10 +16,6 @@ type Both a = Join (,) a both :: a -> a -> Both a both = curry Join --- | Construct Both with These values & defaults. -bothOfThese :: Both a -> These a a -> Both a -bothOfThese (Join a) = Join . uncurry fromThese a - -- | Construct Both (Maybe) with These values, defaulting to Nothing. maybeBothOfThese :: These a a -> Both (Maybe a) maybeBothOfThese = Join . fromThese Nothing Nothing . bimap Just Just