diff --git a/test/SplitSpec.hs b/test/SplitSpec.hs
index fa02a3be9..b59d4048b 100644
--- a/test/SplitSpec.hs
+++ b/test/SplitSpec.hs
@@ -163,7 +163,7 @@ spec = do
       leftRow xs = Row (Line False xs) EmptyLine
       rowText a b = Row (Line False [ Text a ]) (Line False [ Text b ])
       info source category = Info (totalRange source)  (Set.fromList [ category ])
-      unchanged source category = formatted source source category
+      unchanged source = formatted source source
       formatted source1 source2 category = Annotated (info source1 category, info source2 category)
       offsetInfo by (Info (Range start end) categories) = Info (Range (start + by) (end + by)) categories
       offsetAnnotated by1 by2 (Annotated (left, right) syntax) = Annotated (offsetInfo by1 left, offsetInfo by2 right) syntax