From 547750edb9970eb0da905e350be0988aed8c8523 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 8 Mar 2016 21:53:53 -0500
Subject: [PATCH] :fire: the Applicative instance for Row.

---
 src/Row.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/src/Row.hs b/src/Row.hs
index 3dc940183..1f1a16364 100644
--- a/src/Row.hs
+++ b/src/Row.hs
@@ -43,7 +43,3 @@ adjoinRowsBy f (Row (Both (left, right))) (Row (Both (nextLeft, nextRight)) : ro
 adjoinRowsBy f (Row (Both (left, right))) (Row (Both (nextLeft, nextRight)) : rows) | isOpenLineBy (snd f) right = makeRow left (right <> nextRight) : adjoinRowsBy f (makeRow nextLeft EmptyLine) rows
 
 adjoinRowsBy _ row rows = row : rows
-
-instance Applicative Row where
-  pure = Row . pure . pure
-  Row (Both (f, g)) <*> Row (Both (a, b)) = Row $ both (f <*> a) (g <*> b)