From 3d6c69ff334b8db85c650d33953d8038ed5119f9 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 14 Mar 2016 20:44:12 -0400 Subject: [PATCH] Revert "Join is Foldable over These." This reverts commit 87c4c0e5c1e3bc226dcfcac0162f66e0f5b9a5b1. --- src/Data/Bifunctor/Join.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/Data/Bifunctor/Join.hs b/src/Data/Bifunctor/Join.hs index 4a2fcd367..52aff44ec 100644 --- a/src/Data/Bifunctor/Join.hs +++ b/src/Data/Bifunctor/Join.hs @@ -1,13 +1,8 @@ -{-# LANGUAGE FlexibleInstances #-} module Data.Bifunctor.Join where import Data.Bifunctor -import Data.Bifunctor.These newtype Join p a = Join { runJoin :: p a a } instance Bifunctor p => Functor (Join p) where fmap f = Join . bimap f f . runJoin - -instance Foldable (Join These) where - foldMap f = these id id mappend . bimap f f . runJoin