Reformat for clarity.

Author: robrix

test/Data/Source/Spec.hs

@@ -28,7 +28,8 @@ testTree :: Tasty.TestTree
 testTree = Tasty.testGroup "Data.Source"
   [ Tasty.testGroup "sourceLineRanges"
     [ QC.testProperty "produces 1 more range than there are newlines" $
-      \ source -> QC.label (summarize source) $ length (sourceLineRanges source) QC.=== succ (Text.count "\n" (toText source))
+      \ source -> QC.label (summarize source) $
+        length (sourceLineRanges source) QC.=== succ (Text.count "\n" (toText source))
 
     , prop "produces exhaustive ranges" $
       \ source -> foldMap (`slice` source) (sourceLineRanges source) === source