diff --git a/src/Split.hs b/src/Split.hs
index 20d93bc47..56119cdea 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -25,8 +25,6 @@ split _ _ _ = return mempty
 
 data Row = Row (Maybe HTML) (Maybe HTML)
 
--- data Line = Line
-
 diffToRows :: Diff a Info -> String -> String -> ([Row], Range, Range)
 diffToRows (Free (Annotated (Info leftRange _ leftCategories, Info rightRange _ rightCategories) syntax)) before after = (annotationAndSyntaxToRows leftRange leftCategories rightRange rightCategories syntax before after, leftRange, rightRange)
 
@@ -47,6 +45,8 @@ annotationAndSyntaxToRows left leftCategories right rightCategories (Indexed i)
           leftElements = Text <$> lines (substring (Range previousLeft $ start left) before)
           rightElements = Text <$> lines (substring (Range previousRight $ start right) before)
 
+data Line = Line String
+
 {-
 
 in: ([ Line "a.b" ], [ Line "a.b" ]) ([ Line "(c, d, [", Line "  e,", Line "  f", Line "])" ], [ Line "(c, d, [", Line "  ", Line "  e,", Line "  ", Line "  f", Line "])" ])