From aed70270f95c6bea6fb569934f60f668109442d7 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Mon, 7 Dec 2015 16:28:26 -0500
Subject: [PATCH] Revert "display classes in ToMarkup Row instance"

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

diff --git a/src/Split.hs b/src/Split.hs
index 57ae0e229..30da5ef5a 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -7,7 +7,6 @@ import Term
 import Syntax
 import Control.Monad
 import Control.Comonad.Cofree
-import qualified Data.List as L
 import Range
 import Control.Monad.Free
 import Data.ByteString.Lazy.Internal
@@ -62,7 +61,7 @@ makeRow :: [HTML] -> [HTML] -> Row
 makeRow = Row Set.empty
 
 instance ToMarkup Row where
-  toMarkup (Row classNames left right) = tr ! A.class_ (stringValue . L.intercalate " " $ Set.toList classNames) $ (td . mconcat $ toMarkup <$> left) <> (td . mconcat $ toMarkup <$> right)
+  toMarkup (Row _ left right) = (tr $ (td . mconcat $ toMarkup <$> left) <> (td . mconcat $ toMarkup <$> right))
 
 bimap :: ([HTML] -> [HTML]) -> ([HTML] -> [HTML]) -> Row -> Row
 bimap f g (Row className a b) = Row className (f a) (g b)