diff --git a/test/DiffSummarySpec.hs b/test/DiffSummarySpec.hs index 12384e0fd..514652c99 100644 --- a/test/DiffSummarySpec.hs +++ b/test/DiffSummarySpec.hs @@ -101,7 +101,7 @@ isIndexedOrFixed' syntax = case syntax of isBranchInfo :: DiffInfo -> Bool isBranchInfo info = case info of (BranchInfo _ _ _) -> True - (LeafInfo _ _) -> False + _ -> False isBranchNode :: Patch DiffInfo -> Bool isBranchNode = any isBranchInfo