Day 7 - Foldable instance for summing up directories

2022-12-07 18:14:05 +01:00
parent 7f4a4329b0
commit 435a06fd59
4 changed files with 30 additions and 32 deletions
--- a/test/Day7Spec.hs
+++ b/test/Day7Spec.hs
@@ -126,5 +126,5 @@ spec =
           let parsed = forceRight $ parseTerminalLines inputPart1
           let tree = buildTree parsed
           let filtered = filterDirectories (<= 100000) tree
-           let summed = sumUp filtered
+           let summed = sum filtered
           summed `shouldBe` 95437