use composition instead of lambda

2024-10-30 21:17:26 +00:00 · 2024-10-30 21:17:26 +00:00 · 2befb534a1
commit 2befb534a1
parent aa1f69f3d4
1 changed files with 4 additions and 5 deletions
--- a/tests/UnitTest.hs
+++ b/tests/UnitTest.hs
@ -63,11 +63,10 @@ test1 =
  TestCase $
    either
      (assertFailure . displayException)
-      ( \t ->
-          assertEqual
-            "empty track has no elements"
-            0
-            (Track.length t)
+      ( assertEqual
+          "empty track has no elements"
+          0
+          . Track.length
      )
      (Track.parse (wrap ""))