diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs
index a1dbb5209..28a37c280 100644
--- a/src/DiffSummary.hs
+++ b/src/DiffSummary.hs
@@ -242,7 +242,7 @@ termToDiffInfo blob term = case unwrap term of
   S.Fixed children -> BranchInfo (termToDiffInfo' <$> children) (toCategoryName term) BFixed
   S.AnonymousFunction _ _ -> LeafInfo "anonymous function" (toTermName' term) (getField $ extract term)
   Commented cs leaf -> BranchInfo (termToDiffInfo' <$> cs <> maybeToList leaf) (toCategoryName term) BCommented
-  S.If expr _ elseIfs -> BranchInfo ([LeafInfo (toCategoryName term) (toTermName' expr) (getField $ extract term)] ++ (termToDiffInfo' <$> elseIfs)) (toCategoryName term) BIf
+  S.If expr _ elseIfs -> BranchInfo ([LeafInfo (toCategoryName term) (toTermName' expr) (getField $ extract term)] <> (termToDiffInfo' <$> elseIfs)) (toCategoryName term) BIf
   S.Error _ -> ErrorInfo (getField $ extract term) (toTermName' term)
   -- S.If expr _ (Just expr') -> BranchInfo [(termToDiffInfo' expr), (termToDiffInfo' expr')] (toCategoryName term) BIf
   _ -> LeafInfo (toCategoryName term) (toTermName' term) (getField $ extract term)