From 5eece699947995c2733661fb9b58831c921ce4f3 Mon Sep 17 00:00:00 2001 From: joshvera Date: Tue, 26 Jul 2016 16:29:46 -0400 Subject: [PATCH] Use any --- test/DiffSummarySpec.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/test/DiffSummarySpec.hs b/test/DiffSummarySpec.hs index ab12b5546..be46cceb7 100644 --- a/test/DiffSummarySpec.hs +++ b/test/DiffSummarySpec.hs @@ -83,10 +83,7 @@ spec = parallel $ do length listOfLeaves `shouldBe` length listOfDiffLeaves isIndexedOrFixed :: Patch (Term a annotation) -> Bool -isIndexedOrFixed patch = case unwrap <$> patch of - (Insert syntax) -> isIndexedOrFixed' syntax - (Delete syntax) -> isIndexedOrFixed' syntax - (Replace s1 s2) -> isIndexedOrFixed' s1 || isIndexedOrFixed' s2 +isIndexedOrFixed = any isIndexedOrFixed' isIndexedOrFixed' :: Syntax a f -> Bool isIndexedOrFixed' syntax = case syntax of