From 970a3b24d34bdce23476a5403c601513d320d4e4 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 15 Mar 2016 15:08:26 -0400
Subject: [PATCH] Revert "Explicitly preserve Closedness on both sides under
 mappend."

This reverts commit bd4094153350b67d383edffd1f22fbd97de81774.
---
 src/Line.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Line.hs b/src/Line.hs
index bca938fff..0f0bf71e7 100644
--- a/src/Line.hs
+++ b/src/Line.hs
@@ -54,8 +54,7 @@ instance Applicative Line where
 
 instance Monoid (Line a) where
   mempty = Line []
-  mappend xs ys | isOpen xs && isOpen ys = Line (unLine xs `mappend` unLine ys)
-                | otherwise = Closed (unLine xs `mappend` unLine ys)
+  mappend xs ys = lineMap (mappend (unLine xs)) ys
 
 instance Coalescent (Line a) where
   coalesce a b | isOpen a = pure (a `mappend` b)