From ee91e6daef16eecd8e095a545342101b05a230fa Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 14 Apr 2016 21:23:21 -0400 Subject: [PATCH] :fire: the Coalescent instance over Both (Line a). --- src/Line.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/Line.hs b/src/Line.hs index 07b3414fe..9210e1f9a 100644 --- a/src/Line.hs +++ b/src/Line.hs @@ -2,9 +2,7 @@ module Line where import Control.Applicative -import Data.Align import Data.Coalescent -import Data.Functor.Both -- | A line of items or an empty line. data Line a = Line [a] | Closed [a] @@ -55,6 +53,3 @@ instance Monoid (Line a) where instance Coalescent (Line a) where coalesce a b | isOpen a = pure (a `mappend` b) | otherwise = pure a <|> pure b - -instance Coalescent (Both (Line a)) where - coalesce as bs = tsequenceL (pure (Line [])) (coalesce <$> as <*> bs)